1. require(rCharts)
  2. n1 <- nPlot(mpg ~ wt, data = mtcars, group = 'gear', type = 'scatterChart')
  3. n1