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＆amp;输入的色调。 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")