library(rCharts) r1 <- rPlot(mpg ~ wt | gear, data = mtcars, type = "point") r1$print("chart1", include_assets = TRUE, cdn = TRUE)