在ggplot中设置调色板的透明度/饱和度

Question

让我们从viridis 调色板开始。在我看来，颜色对我来说有点太亮了，而且就我的目的而言，它们看起来太人工了。因此，我想应用某种透明度或类似的方法来降低饱和度：

library(nord)
library(scales)
library(viridis)
library(nord)

show_col(viridis(5))
show_col(viridis(5, alpha=.5))

在内部应用 alpha 透明度似乎可行。 。

但是，在 ggplot 中运行时，它会自动将 alpha 更改为 1，并以全强度绘制原始 viridis：

ggplot(faithfuld, aes(waiting, eruptions)) +
  geom_raster(aes(fill = density)) +
  scale_fill_viridis(5, alpha=.5)

在另一个例子中，我发现了相反的问题，缺乏强度/饱和度。例如，nord 包中的“极光”调色板很棒，但它看起来有点褪色，缺乏一些饱和度，至少对我来说是这样。

show_col(nord("aurora",5))

同样，我尝试在内部设置 alpha，在本例中为 1，但与 viridis 相比，这会产生不同的效果，即更改调色板。

show_col(nord("aurora", alpha=.5))

或者，我将 alpha 设置为 alpha()。但是，这只会改变颜色名称，但它们看起来是一样的。

show_col(alpha(nord("aurora",5)), .5)

如何降低viridis 中的饱和度/强度并增加ggplot 中的nord 调色板？

Answer 1

将您的 alpha 值添加到 geom_raster() 层：

ggplot(faithfuld, aes(waiting, eruptions)) +
    geom_raster(alpha = 0.5, aes(fill = density)) +
    scale_fill_viridis(5)

Answer 2

你的最后一个函数有一点错别字。 .5 在show_col 内，而不在alpha 内。因此，在 show_col 内，它会被解释为舍入的 1，这是布尔值 TRUE，这会导致显示 HEX 值。

所以正确的行应该是

show_col(alpha(nord("aurora",5), .5))

这会产生微弱的颜色。

Answer 3

您可以调整 viridis 颜色以降低其饱和度而不使其透明。我希望你可以在 viridis 函数中做到这一点，但看起来没有办法做到这一点。相反，下面的示例是将十六进制输入颜色向量（我们将使用 viridis 函数创建此向量）转换为 hsv 颜色空间的函数，调整 saturation 和 value 级别，然后转换回到十六进制。

下面的方法有点复杂。在颜色系统之间转换可能有更直接的方法。

vir_lite = function(cols, ds=0.4, dv=0.7) {
  cols = rgb2hsv(col2rgb(cols))
  cols["v", ] = cols["v", ] + dv*(1 - cols["v", ])
  cols["s", ] = ds*cols["s", ]
  apply(cols, 2, function(x) hsv(x[1], x[2], x[3]))
}

这里是原始的viridis 颜色：

show_col(viridis(5))

以及调整后的颜色：

show_col(vir_lite(viridis(5)))

您可以通过更改ds 和dv 参数来更改调整后的颜色。现在让我们在图中使用调整后的颜色：

p = ggplot(faithfuld, aes(waiting, eruptions)) +
      geom_raster(aes(fill = density))

p + scale_fill_gradientn(colors=vir_lite(viridis(5)))

p + scale_fill_gradientn(colors=vir_lite(viridis(5), ds=0.6, dv=0.5))