在 R 地图中使用 FIPS 代码对县进行阴影处理
Shading counties using FIPS code in R map
我正在寻找一种在 R 中为美国地图上的县添加阴影的方法。我有 numeric/char 县 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 代码。使用 Choroplethr 在 R 中完成此操作的有效方法是什么？
这是一个使用 maps 库的示例：
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 中为美国地图上的县添加阴影的方法。我有 numeric/char 县 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 代码。使用 Choroplethr 在 R 中完成此操作的有效方法是什么？
这是一个使用 maps 库的示例：
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 较高的县颜色较浅。