Графства в пределах одной государственной карты Choropleth

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 долларов США, га. Наконец, я хотел бы, чтобы все округа NA, основанные на кодах FIPS, были серого или другого цвета, нежели тот, который был бы в шкале.

Я безуспешно пытался использовать различные варианты команды scale_colour_gradient и ее "родственных" команд.

Пожалуйста, дайте мне знать, если вам нужны какие-либо разъяснения или больше кода. Спасибо за любую помощь!

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