一个州内的县区块地图（Choropleth Map）是什么？

Question

我正在努力定制并寻找合适的代码来构建一个州内按县分别显示业务利润的区域地图，但是我遇到了困难。

目前为止，我已经完成了绘制代码，但使用了不想要的颜色调色板以及不理想的数据分段。

library(choroplethr)
library(ggplot2)

county <- data.frame(region = c(19001,19013,19017,19019,19021,19023,19033,19035),
                 value=c(-37102,-41052,35016,-13180,-8062,6357,-46946,-5380))

county_choropleth(county, "Test", state_zoom = "iowa") + scale_fill_brewer("Test",palette="Blues")

我得到这个图：

理想情况下，我希望能够自定义调色板，使正数为蓝色，负数为红色。同时，在这两种颜色之间创建更多的颜色刻度会更理想。我想要将刻度设置成更好看的数字，比如“35,000”、“0”，而不是$35,016。最后，我想根据FIPS代码将所有NA县变成灰色或与刻度不同的颜色。

我已经尝试使用不同版本的scale_colour_gradient命令及其“兄弟”命令，但都没有成功。

如果您需要任何澄清或更多的代码，请告诉我。感谢所有的帮助！

- medavis6

---

你尝试过使用 county_choropleth(county, "Test", state_zoom = "iowa", num_colors = 1) + scale_fill_gradient2(high = "blue", low = "red", na.value = "grey90", breaks = pretty(county$value, n = 10)) 吗？该代码用于绘制美国爱荷华州的县份地图，并根据数据值呈现出不同的颜色，高值为蓝色，低值为红色，缺失值为灰色，同时设置了10个断点。 - lukeA

现在我已经有了，而且它的运行非常好！我唯一的最后一个问题是能否调整图例，使其显示为$600,000而不是6e+05。再次感谢！如果您将您的评论作为答案回复，我将很乐意将其标记为正确答案。 - medavis6

Answer 1

你可以尝试

county_choropleth(county, "Test", state_zoom = "iowa", num_colors = 1) + 
  scale_fill_gradient2(high = "blue", 
                       low = "red", 
                       na.value = "grey90", 
                       breaks = pretty(county$value, n = 10), 
                       label = scales::dollar_format())

- lukeA