将县边界映射到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中的“路线图”。

Answer 1

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

xml_id_group2