在 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

至少在 leaflet 1.1.0+ colorNumeric 中有一个可选的 "reverse" 参数，所以你可以这样做：

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

在 colorNumeric() 中反转颜色

reverse colors in colorNumeric()

r

leaflet

choropleth