colori invertiti in colorNumeric()

Question

Sto cercando di invertire i colori di una mappa di coropleta. Sto usando il foglio illustrativo e la funzione colorNumeric(), ecco il codice che genera la funzione di palette:

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

Vorrei fare qualcosa di simile:

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

Qualcuno sa come fare Questo?

Answer 1

Senza un esempio non posso dire se funziona con il vostro codice, ma provate questo:

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

E il contrario:

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

Answer 2

Come suggerito di @Alex ecco un esempio usando rev con alcuni dati reali:

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

Almeno nel volantino 1.1.0+ colorNumeric ha un optional "reverse" l'argomento, così appena si può fare:

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