RGL包里面的surface3d与spheres3d出来的曲面图如何处理平滑问题

从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")

不知道数据有没有上传成功，我这里看不到，但系统提示已经上传了！

这应该是元数据了

很感兴趣。帮你顶一下。