Невозможно наложить округа на географическую c карту в R?

Question

Я пытаюсь использовать код, который был представлен в предыдущем посте , чтобы сгенерировать карту Миннесоты, включая ее округа.

Хотя я могу сгенерировать карту Миннесоты с следующий код:

Minnesota<-get_map(location = "Minnesota", 
               zoom = 6, source = "google", maptype="roadmap")

Я не могу создать разбивку округов с помощью следующего кода:

##Get Minnesota Counties
    counties <- map_data("county")
    mn_county <- subset(counties, region == 'minnesota')
    Minnesota + 
      geom_polygon(data = mn_county, aes(x=long, y=lat, group = group), fill = NA, color = "red")

Вместо получения карта с планами округа, я получаю следующее сообщение об ошибке:

Error in Minnesota + geom_polygon(data = mn_county, aes(x = long, y = lat,  : 
  non-numeric argument to binary operator
In addition: Warning message:
Incompatible methods ("Ops.raster", "+.gg") for "+" 

Answer 1

Вы должны использовать ggmap(Minnesota) для сопоставления базового слоя:

library(ggplot2)
library(ggmap)

Minnesota<-get_map(location = "Minnesota", 
                   zoom = 6, source = "google", maptype="roadmap")

##Get Minnesota Counties
counties <- map_data("county")
mn_county <- subset(counties, region == 'minnesota')
ggmap(Minnesota) + 
  geom_polygon(data = mn_county, aes(x=long, y=lat, group = group), fill = NA, color = "red")

^{Создано в 2020-03-28 пакетом представ. (v0.3.0)}