R Заполнение округов по FIPS-коду с тепловой картой

Question

Это мой первый график в R, и я был бы очень признателен за любую помощь.

У меня есть датафрейм df с двумя столбцами, region и value.Столбец региона представляет коды FIPS, а значения представляют число, которое я хочу построить в отношении цветовой шкалы в диапазоне от 0 до 5000.

Я посмотрел на Графы затенения с использованием кода FIPS в карте R но я не уверен, как преобразовать эту затенение серой шкалы в цвета с шестнадцатеричным или rgb представлением.Кроме того, я не знаю, как бы заштриховал цвета на основе значений определенной строки.

Это код, который у меня есть на данный момент, и он строит карту округов (все белые) вместе с ихграницы.

library(maps)
library(dplyr)

data(county.fips)
year_df <- year_df[c("region", "value")]
counties <- county.fips %>% left_join(year_df, by=c('fips'='region'))
map("county", fill=TRUE)

Заранее спасибо!

Answer 1

Ответ, на который вы ссылаетесь, действительно очень хорошо сделан и дает отличную ссылку на этот вопрос.Я взял код в этом ответе и изменил gray() на rainbow() примерно так:

df_pop_county$color <- rainbow(n = 50, y / max(y))

, который произвел это: