powered by
surface3d
decorate3d
## S3 method for class 'RasterLayer': plot3D(x, maxpixels=100000, zfac=6, drape=NULL, col=terrain.colors, rev=FALSE, ...)
if (require(rgl)) { data(volcano) r <- raster(volcano) drape <- cut(r, 5) plot3D(r, drape=drape, zfac=4) decorate3d(xlab = "x", ylab = "y", zlab = "z", axes=TRUE) }
Run the code above in your browser using DataLab