r - 将县边界映射到 ggmap

Question

我正在生成一些 map ，我想在 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 的“路线图” .

Answer 1

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

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