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