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