使用plot_usmap包在R中创建地图绘图

Question

我有一个数据集，其中包含不同的州、邮政编码和索赔计数，每个都在单独的列中。我试图创建一个图，以显示总索赔计数根据邮政编码为马萨诸塞州。

数据集：

​

我使用此代码按MA进行过滤：

MA_medicare <- medicare %>%
  filter(medicare$NPPES.Provider.State == "MA")

然后，我使用它来设置plot_usmap的fips代码：

MA_medicare$NPPES.Provider.State <- fips(MA_medicare$NPPES.Provider.State)
setnames(MA_medicare, old=c("NPPES.Provider.State"), new=c("fips"))

最后一次尝试作图(不确定为什么这不起作用)：

plot_usmap(data = MA_medicare, values= c("Total.Claim.Count", "NPPES.Provider.Zip.Code"), include = c("MA")) + scale_fill_continuous(low= "white", high= "red") + theme(legend.position = "right") 

错误:美学长度必须为1或与数据(4350838)相同: fill

Answer 1

我是usmap的开发者。plot_usmap只接受一列用于绘图的值，因此您可能正在寻找以下内容：

plot_usmap(data = MA_medicare, values = "Total.Claim.Count", include = c("MA"))

但是，您的数据是按邮政编码的，目前usmap不支持邮政编码地图(只支持州和县的地图)。它使用FIPS列为地图上的州/县指定颜色。由于已经按州定义了FIPS代码，因此只需要用一种纯色填充整个马萨诸塞州。