R 在全美国地图的右上方放置一个区域

我想绘制以下数据的地图，

dtu plot

，其中有两个独特的县

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

我从（）尝试以下代码：

当我绘制它时，只显示数据集中的县。 我想让这片土地覆盖整个美国。我怎么能做到呢？

---

但是，我可以添加缺少的子区域，因为我使用列

fr

对其进行颜色编码，如果我这样做，则图例将被弄乱。

如果您只需要美国的轮廓，请下载轮廓多边形并将其添加为另一层（

+geom_sf（data=USA）

）。如果你想要一张底图，请看这篇文章：我有多笨？您可以将您的评论转化为解决方案！我就是这样做的：cnty%left_join（county.fips，by=“polyname”）geom_polygon（data=cnty2）不想经历处理sf和几何的头痛。这发生在我们中最好的人身上！写下你的答案，我会投票表决（你可以自己接受）

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") 

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") 

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()