如何在 R 中找到两列颜色的'average'？

Question

我有一个颜色数据框，我想找到一种方法来创建第三列。第三列应由混合其他两列的颜色组成。 我有一个示例数据框和一个我认为可以解决问题的功能。它使用 R 的colorRampPalette()函数和purrr::map2()。但是，这将返回一个列出的列，该列在未列出时与数据帧中的第一列相同。

# Create a function for colors
x <- RColorBrewer::brewer.pal(11, 'Spectral')
spectral_col <- colorRampPalette(x)
# Apply this function to 
tibble(first = sample(spectral_col(100)),
second = sample(spectral_col(100))) %>% 
mutate(middle.color = map2(first, second, function(x, y){
k <- colorRampPalette(c(x, y))
k(1)
})) 

有什么想法吗？

Answer 1

如果你只是生成一个长度1调色板，它总是第一个值。 如：

colorRampPalette(c("#000000","#FFFFFF"))(1)
#[1] "#000000"

您需要生成至少 3 个值才能取两个指定颜色之间的中间值：

colorRampPalette(c("#000000","#FFFFFF"))(3)
#[1] "#000000" "#7F7F7F" "#FFFFFF"
colorRampPalette(c("#000000","#FFFFFF"))(3)[2]
#[1] "#7F7F7F"

如果要指定更精确的中点，也可以使用colorRamp作为替代方法：

rgb(colorRamp(c("#000000","#FFFFFF"))(0.5), max=255)
#[1] "#7F7F7F"

使用 r2evans 的帽子提示，您可以将其放入purrr函数中：

dat <- tibble(first = sample(spectral_col(100)),
second = sample(spectral_col(100)))
dat %>%
mutate(middle=map2_chr(first,second, ~rgb(colorRamp(c(.x,.y))(0.5), max=255)))

或者在基数 R 的mapply中：

mapply(function(x,y) rgb(colorRamp(c(x,y))(0.5), max=255), dat$first, dat$second)