p1 <- nPlot(mpg ~ wt, data = mtcars, type = 'scatterChart')