在R中的所有美国地图上放置一个区域答案

【问题标题】：Lay a region over all USA map in R在R中的所有美国地图上放置一个区域
【发布时间】：2019-09-07 02:24:11
【问题描述】：

我想绘制以下数据的地图，dt_plot，其中包含 2 个独特的县。

fr      long        lat       group order    region       subregion    polyname
10   -121.031609 48.3060722  2894   85063  washington    chelan       washington,chelan
12   -121.054520 48.3289909  2894   85064  washington    chelan       washington,chelan
22   -121.054520 48.3461800  2894   85065  washington    chelan       washington,chelan
23   -121.037331 48.3519096  2894   85066  washington    snohomish    washington,chelan
34   -121.025871 48.3633690  2894   85067  washington    snohomish    washington,chelan
1    -121.065979 48.3977432  2894   85068  washington    snohomish    washington,chelan
5    -121.134743 47.9680252  2924   86403  washington    snohomish    washington,snohomish

我尝试来自 (here) 的以下代码：

ggplot(dt_plot, aes(long, lat, group = group)) + 
geom_polygon(aes(fill = fr), colour = rgb(1, 1, 1, 0.2))  +
coord_quickmap()

当我绘制它时，只显示数据集中的县。我希望情节遍布整个美国。我怎样才能做到这一点？但是，我可以添加缺少的子区域，因为我使用列 fr 对其进行颜色编码，如果我这样做，那么图例就会混乱。

【问题讨论】：

如果您只想要美国的轮廓，请下载轮廓多边形并将其添加为另一层 (+ geom_sf(data = usa)...)。如果您想要底图，请参阅此帖子：stackoverflow.com/questions/47749078/…
我有多笨？你可以把你的评论变成一个解决方案！我是这样做的： cnty % mutate(polyname = paste(region, subregion,sep=",")) %> % left_join(county.fips, by="polyname") geom_polygon(data = cnty2) 不想为处理科幻和几何问题而头疼。
发生在我们最好的人身上！写下你的答案，我会投赞成票（你可以自行接受）

标签： r google-maps ggplot2 ggplotly

【解决方案1】：

cnty <- map_data("county") # Load the county data from the maps package 
cnty2<- cnty %>% 
         mutate(polyname = paste(region, subregion,sep=",")) %>% 
         left_join(county.fips, by="polyname")

并添加geom_polygon(data = cnty2) 作为另一层：

ggplot(dt_plot, aes(long, lat, group = group)) + 
geom_polygon(data = cnty2, fill="lightgrey") + 
geom_polygon(aes(fill = freq), colour = rgb(1, 1, 1, 0.2))  +
geom_text(data=target_annotation, aes(long, lat, label = subregion)) + 
coord_quickmap()

【讨论】：