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)