在 R 中的所有美国地图上放置一个区域
Lay a region over all USA map in R
我想绘制以下数据的地图,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
列对其进行颜色编码,如果我这样做,那么图例就会被弄乱。
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()
我想绘制以下数据的地图,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
列对其进行颜色编码,如果我这样做,那么图例就会被弄乱。
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()