将县边界映射到 ggmap

Question

我正在生成一些地图，我想在 ggmap 路线图上显示各县的边界。这是使用德克萨斯州部分地区的示例。

library(ggmap)
map = get_map(location = c(-95.31619, 28.42460), 
              zoom = 6, source = "google", maptype="roadmap")
map.plot = ggmap(map)

# get texas counties
counties <- map_data("county")
tx_county <- subset(counties, region == 'texas')

map.plot + 
  theme_nothing() + 
  geom_polygon(data = tx_county, aes(x=long, y=lat), fill = NA, color = "red")

但是，生成的图形中有跨县的线，而不仅仅是边界线。

对我做错了什么有什么想法吗？我看过另一个例子 here，它只在使用 ggplot2 时有效，但我想使用 ggmap 中的 'roadmap'。

Answer 1

您需要为多边形设置分组：

map.plot + 
  geom_polygon(data = tx_county, aes(x=long, y=lat, group = group), fill = NA, color = "red")

将县边界映射到 ggmap

Map county borders on to a ggmap

r

ggmap