обратные цвета в цветеNumeric()

Question

Я пытаюсь изменить цвета карты choropleth. Я использую пакет листовки и функцию colorNumeric(), вот код, который генерирует функцию палитры:

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p) 

Я хотел бы сделать что-то вроде этого:

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p, trans='reverse') 

Кто-нибудь знает, как это сделать это?

Answer 1

Без примера я не могу сказать, если он работает с кодом, но попробуйте это:

library(RColorBrewer) 
palette <- brewer.pal(5, "YlGnBu") 
previewColors(colorNumeric(palette = palette, domain = 1:5), values = 1:5) 

И наоборот:

palette_rev <- rev(brewer.pal(5, "YlGnBu")) 
previewColors(colorNumeric(palette = palette_rev ,domain = 1:5), values = 1:5) 

Answer 2

Как было предложено by @Alex вот пример, используя rev с некоторыми фактическими данными:

library(leaflet) 
library(mapview) 
library(RColorBrewer) 

clrs <- rev(brewer.pal(9, "YlGnBu")) 

pal <- colorNumeric(palette = clrs, domain = poppendorf[[5]][]) 

m <- leaflet() %>% addTiles() 

m %>% 
    addRasterImage(x = poppendorf[[5]], color = pal) 

Answer 3

По крайней мере, в листовке 1.1.0+ colorNumeric имеет дополнительный «обратный» аргумент, так что вы можете просто сделать:

pal <- colorNumeric(palette = "YlGnBu", domain = foo$p, reverse = TRUE)