在R地圖中使用FIPS代碼的底紋縣

Question

我正在尋找一種方法來遮蔽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 

但這些都需要一個區域，值對。例如，在上面提供代碼和人口。有沒有辦法在不使用這些值的情況下調用county_choropleth函數，只需要使用fipscode數據框。就這樣，我可以用一種顏色代替我的代碼。使用Choroplethr在R中完成此操作的有效方法是什麼？

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) 

這裏的生成的地圖：

注意，具有較低FIPS縣較暗，而具有較高FIPS縣更輕。