In [42]:
scales<-list(x=list(relation="free"),y=list(relation="free"))
In [45]:
featurePlot(x=x,y=y,plot="density",scales=scales,auto.key=list(columns=3))#曲线分布图
In [ ]: