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

正如@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有一个可选的＆＃34;反向＆＃34;参数，所以你可以这样做：

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