61、探索 R 语言中的 3D 绘图：从基础到高级应用

探索 R 语言中的 3D 绘图：从基础到高级应用

1. 3D 绘图的额外组件添加

在 R 语言中， persp3d 绘制的表面有一个实用特性，即能够轻松添加更多组件，这在基础 R 功能中并非如此直接。下面以 mtcars 响应面为例，介绍如何添加点和表面。

1.1 添加点

由于响应面基于对马力、重量和每加仑英里数（MPG）这三个变量的数据拟合模型，因此将原始观测值与拟合模型一同查看会很有用。可以使用 points3d 函数，它的工作方式类似于基础 R 图形中的 points 函数。具体操作步骤如下：

persp3d(x=hp.seq,y=wt.seq,z=car.pred.mat,col="red",alpha=0.7,
xlab="Horsepower",ylab="Weight",zlab="mean MPG")
points3d(mtcars$hp,mtcars$wt,mtcars$mpg,col="green3",size=10)

上述代码首先绘制了预测的平均 MPG 响应面，颜色为红色，不透明度为 70%，然后在同一图像中添加了绿色的原始观测值，点的大小比默认值稍大。调整 RGL 设备大小并保持设备打开，就可以从任意角度比较响应面与原始数据的拟合情况。

1.2 添加表面

除了添加点，还可以添加更多的透视表面。继续使用之前创建的 car.pred 对象，响应面存储在 <