R 中的 3D 绘图 - 使用第四维颜色

Question

我正在使用plot3d函数在我的R脚本中绘制3D图。我想添加第四个维度，即颜色。我该怎么做？

具体来说，假设我有以下代码：

plot3d(x, y, z, col=cols, size=2, type='s')

如何根据充当第四维的值向量填充 cols 。

Answer 1

只需制作一个颜色图，然后使用 c 变量的剪切版本对其进行索引：

x = rnorm(100)
y = rnorm(100)
z = rnorm(100)

c = z
c = cut(c, breaks=64)
cols = rainbow(64)[as.numeric(c)]

plot3d(x,y,z,col=cols)