R中surface3d的颜色渐变？

Question

我是R语言的新手，我终于能够使用以下代码制作表面：

drilling_trial<- read.table("DRILLING_TRIAL.csv",header=TRUE,sep=",")
all_pit_data<- read.table("ALL_PIT_DATA.csv",header=TRUE,sep=",")
require("akima")
s <- with(all_pit_data,interp(x1,y1,z1))
library("rgl")
plot3d(drilling_trial$x,drilling_trial$y,drilling_trial$z, col = drilling_trial$d, add = FALSE, axes = TRUE, bbox = TRUE, xlab="x", ylab="y", zlab="z")
surface3d(s$x,s$y,s$z,col="gray")

Bynow，我的表面是灰色的，但我想根据z位置用阴影颜色（渐变）着色。有人知道如何这样做吗？

谢谢，

辛

Answer 1

我尝试了几件事，最后我给了我很多我想要的东西：

cols <- terrain.colors(462)
surface3d(s$x,s$y,s$z,color=cols[s$z])

462是我的z值中的较高者！感谢csgillespie提供的链接......我从那里开始！