我有兴趣拥有一个"好"的发散色托盘.很明显，可以只使用红色、白色和蓝色:
img <- function(obj, nam) {
image(1:length(obj), 1, as.matrix(1:length(obj)), col=obj,
main = nam, ylab = "", xaxt = "n", yaxt = "n", bty = "n")
}
rwb <- colorRampPalette(colors = c("red", "white", "blue"))
img(rwb(100), "red-white-blue")
因为我最近爱上了viridis color palettes，所以我希望将翡翠和岩浆结合起来，形成这种不同的 colored颜色 (当然，色盲的人只会看到 colored颜色 的绝对值，但有时也可以).
当我try 组合viridis和magma时，我发现它们不会在同一个位置"结束"(或"开始")，所以我得到了类似的结果(我使用的是R，但对于python用户来说可能是一样的):
library(viridis)
img(c(rev(viridis(100, begin = 0)), magma(100, begin = 0)), "magma-viridis")
我们可以看到，当接近零时，翡翠是紫色的，而岩浆是黑色的.我希望它们都从同一个点开始(或多或少)，所以我try 使用0.3作为起点:
img(c(rev(viridis(100, begin = 0.3)), magma(100, begin = 0.3)), "-viridis-magma(0.3)")
这确实更好，但我想知道是否有更好的解决方案.
(我也在"标记"python用户，因为viridis最初来自matplotlib，所以使用它的人可能知道这样的解决方案.)
谢谢
