无交互 不3D
所以就像这幅图一样 根据数据 利用rworldmap之类的包做一个/library/rgl/textures/world.png这样的材质贴图 存成PNG 用rgl::persp3d展示就可以了
<br />
require(rgl)</p>
<p>lat <- matrix(seq(90,-90, len=50)*pi/180, 50, 50, byrow=TRUE)<br />
long <- matrix(seq(-180, 180, len=50)*pi/180, 50, 50)</p>
<p>r <- 6378.1 # radius of Earth in km<br />
x <- r*cos(lat)*cos(long)<br />
y <- r*cos(lat)*sin(long)<br />
z <- r*sin(lat)</p>
<p>open3d()<br />
persp3d(x, y, z, col="white",<br />
texture=system.file("textures/world.png",package="rgl"),<br />
specular="black", axes=FALSE, box=FALSE,<br />
xlab="", ylab="", zlab="",<br />
normal_x=x, normal_y=y, normal_z=z)<br />
</p>
