悬赏 20 个论坛币 未解决
从RGL包里面用surface3d与spheres3d做了一张图（），但发现出来的图高低起伏得太剧烈，平滑度很差，请教怎么解决哈。另外，如果不行，用 persp（）是否能解决呢？谢谢！
> a=read.csv("a01.csv",header=T)
> b=read.csv("a02.csv",header=T)
> m=as.matrix(a[1:42,1:6])
> n=as.matrix(b[1:42,1:6])
>tmp<-matrix(m,42,6)
>tmt<-matrix(n,42,6)
> x <- 1:nrow(tmp)
> y <- 1:ncol(tmp)
> u <- 1:nrow(tmt)
> v <- 1:ncol(tmt)
> library(rgl)
> open3d()
> zlim <- range(tmp)
> zlen <- zlim[2] - zlim[1] + 1
> colorlut <- terrain.colors(zlen)
> col <- colorlut[tmp-zlim[1]+1]
> surface3d(30000*x,50000*y,tmp,col=colorlut) >spheres3d(30000*u,50000*v,tmt,radius=5000,color="blue")
扫码加好友，拉您进群
全部版块
我的主页
收藏
