# 下面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的变化情况。能否把这些点连成面，有个面的图形，这样我们看起来也比较好看！知道那里最高，哪里最低等等

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