如何在 R 中的 3D 绘图底部添加地图

如何解决如何在 R 中的 3D 绘图底部添加地图

在下面的示例案例中，我想在相交的 2D 剖面下方的经纬度平面上绘制一张地理地图。

不需要使用“plot3D”或“maps”包。

  library(plot3D)

  alt <- rev(seq(0,500,5))
  lat <- seq(30,65,0.25)
  long <- seq(-135,-65,0.5)

  grid <- mesh(long,lat,alt)
  names(grid) <- c("long","lat","alt")
  colvar <- with(grid,dnorm(long,-100,20) * 
                       dnorm(lat,50,10) *
                       dnorm(alt,250,100))

  colvar <- colvar/max(colvar)

  slice3D (long,alt,colvar = colvar,ys  = 50,xs = -100,zs = NULL,xlab = "long",ylab = "lat",zlab = "alt",theta = 60,phi = 40,ticktype = "detailed")

示例地图：

library(maps)
plot(NULL,xlim = range(long),ylim = range(lat),ylab = "lat")
map("world",add = TRUE)