R将颜色转换为柔和的颜色

Question

我有一个手动设计的调色板pal，用于绘制使用ggplot2

 pal <- c("red","red1","red2","red3","grey","darkgreen","skyblue","blue","magenta","magenta4","yellow","orange","pink","pink","black")

我想将这些颜色转换为柔和的颜色（即 HSV 颜色空间中的高值和低饱和度）

有没有什么简单的方法可以自动做到这一点？

我pastel.colors从RPMG包中找到了，但是，此功能不会转换给定的颜色。

Answer 1

由于我不是色彩专家，您可以尝试以下作为起点。这个想法基于我在某处发现的一个陈述，即柔和的颜色 1) 在 HSV 颜色空间中具有高值和低到中等饱和度，或者 2) 需要一些亮度值。所以我将颜色的名称转换为hcl通过col2rgb&输入的色调rgb2hsv。

a <-c("red","red1","red2","red3","grey","darkgreen","skyblue","blue","magenta","magenta4","yellow","orange","pink","pink","black")
par(mfrow=c(3,1))
barplot(seq_along(a), col=a, main="original")
# transform to rgb
a1 <- col2rgb(a)
# transform to HSV space
a2 <- rgb2hsv(a1)
# you can try different scaling values e.g. between 0.3 - 0.6
n <- 0.4
barplot(seq_along(a), col=hsv(a2[1,], a2[2,]*n, a2[3,]), main="Pastel_hsv")
# calculate hue for HCl
hue <- a2["h",]*360
# create color with suitable chroma and luminance to get pastel color
a3 <- hcl(hue, 35, 85)
barplot(seq_along(a), col=a3, main="Pastel_hcl")