一国中的县等值线地图

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")

我得到了这个情节：

理想情况下，我希望能够将调色板自定义为正面为蓝色，负面时为红色。此外，在这两种颜色之间创建更多色标也是理想的。我想让休息时间更加愉快，例如＆＃34; 35,000＆＃34;，＆＃34; 0＆＃34;等等，而不是$ 35,016，ha。最后，我想基于FIPS代码制作所有NA县，灰色或不同于比例尺上的颜色。

我尝试使用scale_colour_gradient命令及其兄弟＆＃34;的不同变体未成功。命令。

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

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())