Настройте цвета в geom_polygon ggplot2, используя палитру пивовара

Я хочу воспроизвести карту, построенную с использованием точного кода из этой ссылки - только из «Шага 1, создание исходной карты»:

https://www.r-bloggers.com/user-question-how-to-add-a-state-border-to-a-zip-code-map/

Однако я хочу, чтобы цвета были не синими, а какими-то другими. Поэтому я добавил в код всего одну строчку - сразу после ggplot_polygon:

+scale_fill_brewer(palette = 'OrRd')

Но это не работает. Есть идеи, почему?

Ниже мой код:

library(choroplethr)
library(ggplot2)
library(devtools)
install_github('arilamstein/[email protected]')
library(choroplethrZip)

# load the data 
data(df_zip_demographics)
str(df_zip_demographics)
df_zip_demographics$value = df_zip_demographics$percent_white

# create the map
zip_map = ZipChoropleth$new(df_zip_demographics)
zip_map$ggplot_polygon = geom_polygon(aes(fill = value), 
                                      color = NA) +
  scale_fill_brewer(palette = 'OrRd')
zip_map$set_zoom_zip(state_zoom  = c("new york", "new jersey"), 
                     county_zoom = NULL, 
                     msa_zoom    = NULL, 
                     zip_zoom    = NULL) 
zip_map$title = "New York and New Jersey ZCTAs"
zip_map$legend = "Percent White"
zip_map$set_num_colors(4)
choro = zip_map$render()
choro

r color-palette ggplot2 choroplethr
person user3245256    schedule 22.10.2017    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Судя по коду, choro — это объект ggplot2, который визуализируется, поэтому добавляются дополнительные элементы ggplot2, а не zip_map$ggplot_polygon, который принимает только назначение geom_polygon.

# create the map
zip_map = ZipChoropleth$new(df_zip_demographics)
zip_map$ggplot_polygon = geom_polygon(aes(fill = value), 
                                  color = NA)
zip_map$set_zoom_zip(state_zoom  = c("new york", "new jersey"), 
                 county_zoom = NULL, 
                 msa_zoom    = NULL, 
                 zip_zoom    = NULL) 
zip_map$title = "New York and New Jersey ZCTAs"
zip_map$legend = "Percent White"
zip_map$set_num_colors(4)
choro = zip_map$render()
choro

# Change fill to brewer palette
choro + scale_fill_brewer(palette = 'OrRd')

введите здесь описание изображения

person Djork    schedule 22.10.2017
comment
Большое спасибо! Кто бы мог подумать, что это так просто! - person user3245256; 24.10.2017