县内一个县Choropleth地图

我正在努力定制和找到正确的代码来构建我试图使企业的利润在特定状态县的企业利润的地图。县内一个县Choropleth地图

我到目前为止所做的事情是能够绘制我的代码，尽管我不想要的颜色调色板也打破了也是不理想的。

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代码将所有北美县都做成灰色或与比例尺不同的颜色。

我尝试使用scale_colour_gradient命令及其“兄弟”命令的不同变体未成功。

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

来源

2015-10-13 medavis6

你试过'county_choropleth（县， “测试”，state_zoom = “阿华”，NUM_COLORS = 1）+ scale_fill_gradient2（高= “蓝”，低= “红”， na.value =“grey90”，breaks = pretty（县$ value，n = 10））？ – lukeA

现在我有，它的作品就像一个魅力！我唯一的最后一个问题是调整传说的能力，因此它说600,000美元而不是6e + 05。再次感谢！如果您回应您的评论作为答案，我很乐意将其标记为正确的。 – 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), 
         label = scales::dollar_format())

来源

2015-10-13 22:02:00 lukeA

县内一个县Choropleth地图

回答

相关问题