3D-черчение в R - Использование 4-го измерения цвета

Question

Я использую функцию plot3d для создания трехмерного графика в моем R-скрипте. Я хотел бы добавить 4-е измерение, которое будет цвет. Как я могу это сделать?

В частности, предположим, что у меня есть следующий код:

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

как бы я заполнил cols на основе вектора значений, выступающего в качестве моего 4-го измерения.

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)