## Not run: 
# hc <- highchart()
# 
# hc_add_series_scatter(hc, mtcars$wt, mtcars$mpg)
# hc_add_series_scatter(hc, mtcars$wt, mtcars$mpg, mtcars$drat)
# hc_add_series_scatter(hc, mtcars$wt, mtcars$mpg, mtcars$drat, mtcars$am)
# hc_add_series_scatter(hc, mtcars$wt, mtcars$mpg, mtcars$drat, mtcars$qsec)
# hc_add_series_scatter(hc, mtcars$wt, mtcars$mpg, mtcars$drat, mtcars$qsec, rownames(mtcars))
# 
# # Add named attributes to data (attributes length needs to match number of rows)
# hc_add_series_scatter(hc, mtcars$wt, mtcars$mpg, mtcars$drat, mtcars$qsec,
#                       name = rownames(mtcars), gear = mtcars$gear) %>%
#   hc_tooltip(pointFormat = "<b>{point.name}</b><br/>Gear: {point.gear}")
#   
# ## End(Not run)
Run the code above in your browser using DataLab