如何使用 R 中 plot_usmap() 上的 FIP 代码为某些特定县上色

Question

我想给三个县 1001,1005,1007 上色，这可以通过 plot_usmap() 函数实现吗？

library(usmap)
plot_usmap(regions = "county", values = c(1001,1005,1007))

Answer 1

首先你需要一个所有县的数据集。 Furtunately usmap 包有一个“countypop”，检查这个我们看到，countycode 的函数输入是 5 位数字作为一个字符。我们可以使用此信息创建一个新的因素列，表明它是否是 desired/to 突出显示的县之一。

library(tidyverse)
library(usmap)

vec  <- c(1001,1005,01007)

dt <- countypop %>%
    dplyr::mutate(selected = factor(ifelse(fips %in% stringr::str_pad(vec, 5, pad = "0"), "1", "0")))

第二步是使用这个生成的数据集来构建地图并根据新创建的变量填充颜色：

usmap::plot_usmap(data = dt, values = "selected", color = "grey") +
    ggplot2::scale_fill_manual(values = c("red", "yellow"))

如何使用 R 中 plot_usmap() 上的 FIP 代码为某些特定县上色

how to color some specific counties using their FIP code on plot_usmap() in R

plot

r

fips