library(chartjs)
chartjs(height = "200px") %>% cjsBar(labels = LETTERS[1:10]) %>% cjsSeries(data = c(abs(c(rnorm(8))), NA, 0.5), label = "Series 1") %>% cjsSeries(data = abs(c(rnorm(10))), label = "Series 2") %>% cjsSeries(data = abs(c(rnorm(10))), label = "Series 3") %>% cjsLegend()
chartjs(height = "200px") %>% cjsLine(labels = seq.Date(as.Date("2011-01-01"), as.Date("2011-01-08"), by = 1)) %>% cjsEditScale("x", 1, type = "time") %>% cjsEditScale("y", 1, type = "logarithmic") %>% cjsSeries(data = abs(c(rnorm(8))), label = "Series 1") %>% cjsSeries(data = c(abs(c(rnorm(3))), NA, abs(c(rnorm(4)))), label = "Series 2") %>% cjsSeries(data = abs(c(rnorm(8))), label = "Series 3") %>% cjsLegend()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.