在 R 中使用 ggmap 添加上下文（或任意）地图插图？

Question

美好的一天，

假设我在 R 中使用 library(ggmap) 来制作这张地图：

ggmap(get_map(location = c(lon = -81.38630, lat = 19.30340), source = "stamen", maptype = "terrain", zoom = 14))

给出：

如何向该图像添加一个小的上下文插图（可能靠近左上角？）以显示更广泛的地理区域？在这个小插图中，我希望它有一个框来勾勒出较大地图适合的位置。

感谢您的帮助。

Answer 1

这是一个基于 grid 视口使用的可能解决方案。

library(ggmap)
library(grid)

map1 <- get_map(location = c(lon = -81.38630, lat = 19.30340), 
        maptype = "terrain", zoom = 14)
map2 <- get_map(location = c(lon = -81.38630, lat = 19.30340), 
        maptype = "terrain", zoom = 12)

p1 <- ggmap(map1)
g1 <- ggplotGrob(p1)
grid.draw(g1)

pushViewport( viewport(x=0.25, y=0.8, w=.3, h=.3) )
xy <- data.frame(x=c(-81.41,-81.41,-81.36,-81.36,-81.41), 
       y=c(19.33,19.28,19.28,19.33,19.33))
p2 <- ggmap(map2) + 
      geom_path(data=xy, aes(x,y), color="red", lwd=1) + 
      theme_void()
g2 <- ggplotGrob(p2)
grid.draw(g2)
grid.rect(gp=gpar(col="white", lwd=5))
popViewport()

在 R 中使用 ggmap 添加上下文（或任意）地图插图？

Add contextual (or arbitrary) map insets with ggmap in R?

maps

r

geospatial

ggplot2

ggmap