在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并以全强度绘制原始翠绿：

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

在另一个示例中，我发现了相反的问题，即强度/饱和度不足。例如，nord包装中的“ aurora”调色板很棒，但至少在我看来，它看起来有些褪色，缺乏一定的饱和度。

show_col(nord("aurora",5))

同样，我尝试在内部将Alpha（在这种情况下）设置为1，但与色盲相比，效果有所不同，从而改变了调色板。

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

另外，我将alpha设置为alpha()。但是，这只会更改颜色名称，但是它们看起来相同。

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

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

Answer 1

您可以调整 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))