1. n1 <- nPlot(mpg ~ wt, data = mtcars, group = "gear", type = "scatterChart")
  2. n1$addControls("x", value = "wt", values = names(mtcars))
  3. n1$addControls("group", value = "gear", values = names(mtcars))
  4. n1