# NOT RUN {
n <- 15
dta <- data.frame(
x = 1:n + rnorm(n),
y = 2 * 1:n + rnorm(n)
)
highchart() %>%
hc_chart(type = "scatter") %>%
hc_add_series(data = list_parse(dta), showInLegend = FALSE) %>%
hc_add_theme(hc_theme_tufte())
# }
Run the code above in your browser using DataLab