如何在R中的plot_usmap()上使用它们的FIP代码对一些特定的县进行着色

Question

我想给三个县画1001,1005,1007，这能通过plot_usmap()函数吗？

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

Answer 1

首先，您需要一个所有县的数据集。更重要的是，usmap包有一个"countypop"，检查这一点，我们看到，作为一个字符，代码的函数输入是5位数字。我们可以使用此信息创建一个新的因子列，指示wheather --它是所希望的/将被突出显示的县之一。

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

​

​