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