检查字符串是否是有效的颜色表示

Question

简短的问题，如果我有一个字符串，我如何测试该字符串是否是R 中的有效颜色表示？

我尝试了两件事，首先使用函数col2rgb()来测试它是否是一种颜色：

isColor <- function(x)
{
  res <- try(col2rgb(x),silent=TRUE)
  return(!"try-error"%in%class(res))
}

> isColor("white")
[1] TRUE
> isColor("#000000")
[1] TRUE
> isColor("foo")
[1] FALSE

有效，但看起来不是很漂亮并且没有矢量化。第二件事是检查字符串是否在 colors() 向量或 # 后跟长度为 4 到 6 的十六进制数：

isColor2 <- function(x)
{
  return(x%in%colors() | grepl("^#(\\d|[a-f]){6,8}$",x,ignore.case=TRUE))
}

> isColor2("white")
[1] TRUE
> isColor2("#000000")
[1] TRUE
> isColor2("foo")
[1] FALSE

虽然我不确定它的稳定性如何，但它确实有效。但似乎应该有一个内置函数来做这个检查？

Answer 1

您的第一个想法（使用col2rgb() 为您测试颜色名称的有效性）对我来说似乎很好，只需要矢量化。至于它看起来是否漂亮……很多/大多数 R 函数在“幕后”并不是特别漂亮，这是首先创建函数的主要原因！对用户隐藏所有那些丑陋的内部结构。

一旦你在下面定义了areColors()，使用它就很简单了：

areColors <- function(x) {
     sapply(x, function(X) {
         tryCatch(is.matrix(col2rgb(X)), 
                  error = function(e) FALSE)
         })
     }

areColors(c(NA, "black", "blackk", "1", "#00", "#000000"))
#   <NA>   black  blackk       1     #00 #000000 
#   TRUE    TRUE   FALSE    TRUE   FALSE    TRUE 

Answer 2

更新，鉴于编辑

?par 详细描述了在 R 中指定颜色的方式。任何解决有效颜色的方法都必须考虑：

1. colors() 中列出的 命名 颜色
2. "#RRGGBBAA 形式的十六进制表示形式，用于指定红色、绿色、蓝色和 Alpha 通道。 Alpha 通道用于透明度，并非所有设备都支持，因此虽然使用 8 个十六进制值以这种方式指定颜色是有效的，但它在特定设备上可能无效。
3. NA 是有效的“颜色”。它表示透明，但就 R 而言，它是一种有效的颜色表示。
4. 同样"transparent"也有效，但在colors()中无效，所以也需要处理

5. 1 是一种有效的颜色表示，因为它是palette() 返回的小调色板中颜色的索引

   > palette()
   [1] "black"   "red"     "green3"  "blue"    "cyan"    "magenta" "yellow" 
   [8] "gray"
   

   因此您需要处理1:8。为什么这很重要，?par 告诉我们将这些颜色的索引表示为字符也是有效的，因此您需要捕获 "1" 作为有效的颜色表示。但是（正如 @hadley 在 cmets 中所指出的）这 只是 用于默认调色板。用户可能会使用另一个调色板，在这种情况下，您将不得不考虑对您的 R 版本允许的最大长度的向量元素的字符索引。

一旦你处理了所有这些你应该好好去;-)

据我所知，没有用户可见的功能可以做到这一点。所有这些都隐藏在执行绘图的 C 代码中；很快你就会到达.Internal(....) 土地，那里有龙！

---

原创

[迂腐#000000不是 R.中的颜色名称]

names R 知道的唯一颜色是 colors() 返回的颜色。是的，#000000 是 R 理解的颜色表示之一，但您特别询问了名称，最终列表或解决方案是 x %in% colors()，就像您在第二个示例中一样。

这几乎是稳定的。当您使用像col = "goldenrod" 这样的颜色时，R 在内部将其与您正在绘制的任何设备的颜色的“正确”表示相匹配。 color() 返回 R 可以查找的颜色名称列表。如果它不在colors() 中，则它不是颜色名称。