R用FIPS代码填写热区图

Question

这是我第一次在R中绘图，我将不胜感激。

我有一个包含两列的数据框df，分别是region和value。区域列代表FIPS代码，值代表我要针对0-5000范围内的色标绘制的数字。

我查看了Shading counties using FIPS code in R map，但不确定如何将这种灰度阴影转换为十六进制或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

您链接到的答案确实做得很好，并为该问题提供了很好的参考。我在该答案中得到了代码，并像这样将vpw.remove(max(vpw)更改为gray()：

rainbow()

产生了以下内容：