作业中需要画三维柱状图,尝试了两种方法:
一是scatterplot3d包,函数与包同名。
z <- matrix(data3d, nrow=1)
x <- matrix(datax, nrow=1)
y <- matrix(datay, nrow=1)
scatterplot3d(x,y,z,type='h',lwd=5,color=rainbow(10))
这个图比较简单,但是不能旋转。想要画可以旋转的图,可以用rgl包的plot3d函数。
library(rgl)
library(RColorBrewer)
plot3d(x, y, z, col =brewer.pal(10,'BrBG'),size=10,lwd=5, type = 'h',background='black')
效果不错。