求助如何用R画三维曲面图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

数据是这个三维数据 p.xlsx (23.46 KB)

2016-12-17 21:25:40 上传

数据

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：曲面图 如何用 如何

可以用Rcmdr包显示三维图

1. library(Rcmdr)
   
2. attach(p)
   
3. scatter3d(V1,V2,V3)

复制代码

飞天玄舞6 发表于 2016-12-17 22:23
可以用Rcmdr包显示三维图

那如果想通过这些点生成一个曲面要怎么做呢

1. library(rgl)
   
2. x1=rnorm(100,5,0.5)
   
3. x2=1:100
   
4. y=x1*x2
   
5. 
   
6. m1=lm(y~x1*x2)
   
7. 
   
8. newdata=data.frame(expand.grid(x11=seq(range(x1)[1],range(x1)[2],length.out=10),
   
9. x22=seq(range(x2)[1],range(x2)[2],length.out=10)))
   
10. x10=unique(newdata$x11)
    
11. x20=unique(newdata$x22)
    
12. pr=predict(m1,data.frame(x1=newdata$x11,x2=newdata$x22))
    
13. plot3d(x1,x2,y,type="p",lit=FALSE,size=10,box=FALSE,grid=FALSE)
    
14. surface3d(x10,x20,pr,alpha=1,front="line",back="lines",lwd=2)

复制代码

先建立模型，再画曲面要好看一些，能够发现趋势，单纯根据点，做出的三维曲面很难看，也很难解释，拐点太多