在 R 地图中使用 FIPS 代码着色县-解网

问：

我正在寻找一种在 R 中的美国地图上为县着色的方法。我有数字/字符县FIPS代码列表，我可以将其输入为参数。我只需要突出显示这些县 - 所以只需要对它们进行阴影处理，并且没有与县相对应的值或变化。我试着抬头看

 library(choroplethr)
 library(maps)

和

county_choropleth(df_pop_county)

head(df_pop_county)
    region  value
 1   1001  54590
 2   1003 183226
 3   1005  27469
 4   1007  22769
 5   1009  57466
 6   1011  10779

但这些需要一个区域、值对。例如，上面的 fips 代码和人口。有没有办法调用 county_choropleth 函数而无需使用值，只需使用 fipscode 数据帧即可。这样，我就可以用一种颜色来编码我的 fips 代码。在 R 中使用 Choroplethr 实现此目的的有效方法是什么？

R 映射 FIPS 等值均衡器 RMaps

library(maps)
library(dplyr)

data(county.fips)

## Set up fake df_pop_county data frame
df_pop_county <- data.frame(region=county.fips$fips)
df_pop_county$value <- county.fips$fips
y <- df_pop_county$value
df_pop_county$color <- gray(y / max(y))

## merge population data with county.fips to make sure color column is
## ordered correctly.
counties <- county.fips %>% left_join(df_pop_county, by=c('fips'='region'))
map("county", fill=TRUE, col=counties$color)

下面是生成的地图：

请注意，FIPS 较低的县较暗，而 FIPS 较高的县较亮。

在 R 地图中使用 FIPS 代码着色县

Shading counties using FIPS code in R map

评论

评论