R 语言：使用 ggmap 将地图插入另一个地图

Question

我正在尝试将一张地图插入另一张地图。即使有一次成功，我也经常破坏 R Studio。

第一张地图：卢森堡

library(rgdal)     
library(ggplot2)   
library(ggmap)     
library(raster)

 shapefile_lux <- getData('GADM', country='LUX', level=0)
 shapefile_lux <- fortify(shapefile_lux)


 map <- ggplot() +
        geom_path(data = shapefile_lux, 
            aes(x = long, y = lat, group = group),
            color = 'red', fill = 'white', size = .2)

 map_projected <- map +
         coord_map()


 print(map_projected)

第二张地图：欧洲

 continent <- qmap('europe', zoom = 3, source="stamen")

第三张图：我的问题！

 continent +
        geom_polygon(data = shapefile_df, aes(x = long, y = lat, group = group))

我尝试了

的不同组合

 geom_polygon(data = shapefile_df, aes(x = long, y = lat, group = group))

但是，在我看来，问题出在我用来在两个地图之间进行组合的方式上。

预期的结果是卢森堡的形状变成了欧洲地图。

Answer 1

## Luxemburgo
data <- shapefile_lux
qmap('europe', zoom = 4, maptype = 'satellite') +
geom_polygon(aes(x = long, y = lat, group = group), data = data,
              colour = 'white', fill = 'black', alpha = .4, size = .3)

R 语言：使用 ggmap 将地图插入另一个地图

R language: Insert a map into another using ggmap

r

ggplot2

ggmap