1. n1 <- nPlot(mpg ~ wt, data = mtcars, type = 'scatterChart', group = 'gear')
  2. n1$chart(color = c('red', 'blue', 'green'))
  3. n1