R add colormap legend and ticked axis to rgl surface3d

Question

I wrote test code below with rgl package support. How could I add a color scale to this plot? Thank you.

require(rgl);
x=1:100;
y=1:100;
z=matrix(sort(abs(rnorm(100*100,50,30) )),100,100)
H <- z
Hlim <- round(range(H[!is.na(H)]))
Hlen <- Hlim[2] - Hlim[1] + 1
colorlut <- terrain.colors(Hlen,alpha=0) # height color lookup table
col <- colorlut[ H-Hlim[1]+1 ] # assign colors to heights for each point
surface3d(x,y,z,color=col);
#persp3d(x,y,z,color=col);

score 2 · Answer 1 · answered Jun 02 '15 at 14:35

Actually, I found a way to solve it. here is the code:

    require(rgl);
require(fields);

x=1:100;
y=1:100;
z=matrix(sort(abs(rnorm(100*100,50,30) )),100,100)
H <- z
Hlim <- round(range(H[!is.na(H)]))
Hlen <- Hlim[2] - Hlim[1] + 1
colorlut <- terrain.colors(Hlen,alpha=1) # height color lookup table
col <- colorlut[ H-Hlim[1]+1 ] # assign colors to heights for each point
par3d(windowRect = c(10, 10, 600, 600))
Sys.sleep(0.1)
bgplot3d( suppressWarnings ( image.plot( legend.only=TRUE, legend.args=list(text='legend'), zlim=Hlim,col=col) )  )#legend
surface3d(x,y,z,color=col);
#persp3d(x,y,z,color=col);

R add colormap legend and ticked axis to rgl surface3d

1 Answers1