1

我使用以下 Rcode 检索了使用 (RgoogleMaps) 包绘制点的地图：

library(RgoogleMaps)
lat = c(-30.3022,-30.5000,-33.48569)
lon = c(153.1189,151.6500,145.5316)
center = c(mean(lat), mean(lon))
zoom <- min(MaxZoom(range(lat), range(lon)))
mymap <- GetMap(center=center, zoom=zoom, maptype= "terrain", destfile = "MyTile1.png")

我还使用以下方法成功地在该地图上绘制了我的 3 个点：

NewMap <- PlotOnStaticMap(mymap, lat = c(-30.3022,-30.5000,-32.24300),  
      lon = c(153.1189,151.6500,148.6019), destfile = "MyTile1.png", cex=1.5,pch=20, 
      col=c('red', 'purple', 'green'), add=FALSE)

现在我需要覆盖 Lat-long 值的网格，甚至只是任何类型的网格。有任何想法吗？我做了一些相当广泛的研究，似乎（RgoogleMaps）没有一个简单的方法来做到这一点。

谢谢，达斯

4

1 回答 1

1

您可以为此使用 dismo::gmap。它以 RasterLayer 形式返回谷歌地图，您可以使用它来覆盖 Spatial* 对象（sp 包），例如 SpatialPolygons 或 SpatialLines，以及 Raster* 对象（栅格对象），或者仅使用points或lines

library(dismo)
lat = c(-30.3022,-30.5000,-33.48569)
lon = c(153.1189,151.6500,145.5316)
xy <- cbind(lon, lat)

g <- gmap(xy, lonlat=TRUE, scale=2)
plot(g, interpolate=TRUE)
points(xy, col='red', pch=20)
于 2015-11-23T09:16:56.640 回答