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