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