R做立体图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

已经给出三维数据，数目大概300多个，x,y,z代表横坐标纵坐标以及高度。我的目的是想做三维立体图，并且根据这些点的高度估计出其它点的高度。应该如何做呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：立体图 横坐标 纵坐标 如何

    # 下面3D图实现了旋转, 需要用鼠标旋转
      library(rgl)
      plot3d(dat)
而下面的3d不能旋转
       library(scatterplot3d)
       scatterplot3d( dat$X1, dat$X2,dat$Y, highlight3d=TRUE, angle=40 )
       library( "lattice" )
       cloud( dat$Y ~ dat$X1 + dat$X2, dat,
             screen = list( z=140, x =-70 ), panel.aspect=1.0 )
             # z=140  z轴旋转的度数,  x =-70  x轴旋转的度数

谢谢你的回答，不过我的目的还是没有达到！因为我想做的立体图能看出随着xy变化h的变化情况。能否把这些点连成面，有个面的图形，这样我们看起来也比较好看！知道那里最高，哪里最低等等

1. x <- seq(-10, 10, length.out = 50)  
   
2. y <- x  
   
3. rotsinc <- function(x,y) {
   
4.     sinc <- function(x) { y <- sin(x)/x ; y[is.na(y)] <- 1; y }  
   
5.     10 * sinc( sqrt(x^2+y^2) )  
   
6. }
   
7. 
   
8. z <- outer(x, y, rotsinc)  
   
9. persp(x, y, z)
   
10. require(rgl)  
    
11. surface3d(x, y, z)

复制代码

credit goes to http://stackoverflow.com/questio ... -surface-from-x-y-z