r语言3d数据分析

install.packages('plotly')

library(plotly)

packageVersion('plotly')#输入可查看包的版本

data('volcano')

View(volcano)#查看数据情况

p1=plot_ly(z=~volcano)%>%add_surface()

p1

library(MASS)
data(geyser)
View(geyser)#是一组来自于MASS包的二维的分布数据，分布值不连续且各维度取值有重复，故可以进行密度分布估计
kd<-with(geyser,kde2d(duration,waiting,n=50))#对数据进行核密度估计，n可以调节密度估计结果的平滑程度，返回值为一组三维的list
p2<-plot_ly(x=kd$x,y=kd$y,z=kd$z)%>%add_surface()#直接进行绘制
p2