Shading counties с использованием кода FIPS в R-карте

Question

Я ищу способ уклонения графств на картах США в R. У меня есть список номеров FIPS с числовым/char-кодом, который я могу ввести как параметр. Мне просто нужно выделить эти округа - так что просто нужно будет их затенять, и нет никаких значений или вариантов, соответствующих округам. Я попытался посмотреть

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?

Answer 1

Вот пример использование 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) 

Вот результирующая карта:

Обратите внимание, что США с более низким ФИПСОМ темнее, в то время как США с более высоким ФИПСОМ легче.