r - 在 R 中使用 ggmap 添加上下文(或任意) map 插图？

Question

你好，

假设我在 R 中使用 library(ggmap) 制作这张 map :

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

给出:

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

感谢您的帮助。

Answer 1

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

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()