Язык R: вставьте карту в другую, используя ggmap - PullRequest
Новая
       4

Язык R: вставьте карту в другую, используя ggmap

0 голосов
/ 08 мая 2019

Я пытаюсь вставить карту в другую. И даже когда однажды это сработало, я часто ломаю 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))

Но мне кажется, что проблема в том, что я использую для создания комбинации между обеими картами.

Ожидаемые результаты - это форма Люксембурга на карте Европы.

1 Ответ

0 голосов
/ 11 мая 2019 
## 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)

1

...