r - colorNumeric() 中的反转颜色

Question

我正在尝试反转等值线图的颜色。我正在使用传单包和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

至少在传单 1.1.0+ colorNumeric 有一个可选的“反向”参数，所以你可以这样做：

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

Answer 3

正如@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)