3D图形能够从不同的角度解释方程或图形，这样显得更直观，更容易了解变量之间关系，今天我们通过rgl包绘制交互3D图。

我们先导入R包和数据，数据使用R语言自带的鸢尾花数据来演示

library("rgl")
iris<-iris

这是R自带的数据，表示的3种鸢尾花的茎叶长宽等数据。
我们把它的数据一部分提出来

pwid<-iris$Petal.Width
plen<-iris$Petal.Length
swid<-iris$Sepal.Width
slen<-iris$Sepal.Length

rgl包绘制3D图需要分别提,x,y,z轴的数据

plot3d(x=pwid,y=plen,z=swid)

这样一个简单的3D散点图这样就画好了，我们可以按住鼠标对它进行拖动观察

我们还可以对图形进行进一步的修饰调整点的大小，把点改为立体的

plot3d(x=pwid,y=plen,z=swid,size=1.5,type = "s")

还可以对颜色进行进一步修改

plot3d(x=pwid,y=plen,z=swid,size=1.5,type = "s",col = c(1,2,3)[as.numeric(iris$Species)])

若是想添加图例，可以

legend3d("topright",col=1:3,legend=levels(iris$Species),pch=16,cex=2)

未完待续