r - 标签与背景对比 : determine if color is light or dark

Question

我有一个带有白色标签的条形图。有时背景颜色太浅，白色标签变得难以辨认。我正在寻找一个接受颜色值并返回颜色是深色还是浅色的函数。然后我可以相应地将标签颜色设置为白色或黑色，以获得与背景的最佳对比度。

Answer 1

这是根据@MrFlick 提供的(第二个)链接中的强度等级来实现选择黑色与白色文本颜色的策略。

该博客引用了一份 W3C 出版物:a standard formula for calculating the perceived brightness of a color使用 RGB 编码颜色的算法:

 ((Red value X 299) + (Green value X 587) + (Blue value X 114)) / 1000

col2rgb 函数提供了一个 3 行矩阵，我将其乘以该网页中提供的因子。我使用“红色”作为背景颜色的示例，然后选择的文本将是“白色”

 c( "black", "white")[  1+(sum( col2rgb("red") *c(299, 587,114))/1000 < 123) ]
[1] "white"

作为函数实现:

isDark <- function(colr) { (sum( col2rgb(colr) * c(299, 587,114))/1000 < 123) }
isDark("red")
[1] TRUE