colorNumeric() 中的反转颜色答案

【问题标题】：reverse colors in colorNumeric()colorNumeric() 中的反转颜色
【发布时间】：2016-07-06 16:15:25
【问题描述】：

我正在尝试反转等值线图的颜色。我正在使用传单包和colorNumeric() 函数，这里是生成调色板函数的代码：

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

我想做这样的事情：

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

有人知道怎么做吗？

【问题讨论】：

你能提供一个可重现的例子吗？
pal[length(pal):1] 有效吗？
How to reverse order a vector?的可能重复
我不认为每个人都清楚调色板是矢量。因此，我不会将其称为上述内容的重复。

标签： r leaflet choropleth

【解决方案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)

【讨论】：

【解决方案2】：

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

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

【讨论】：

【解决方案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)

【讨论】：

无意冒犯！当我仍在尝试并输入我的答案时，您一定已经提供了您的答案...我已经编辑了我的答案以确认您的答案。