將十六進制顏色代碼轉換爲顏色名稱

Question

如何將一種顏色的十六進制表示轉換爲相應的名稱？

例如，請考慮以下顏色：

rainbow(4) 
# "#FF0000FF" "#80FF00FF" "#00FFFFFF" "#8000FFFF" 

他們叫什麼名字（希望的名稱存在每個代碼）？

我發現了功能col2rgb()，但它並不暗示我所需要的。

Answer 1

您可以使用方便ience功能color.id從plotrix包*：

鑑於指定爲十六進制字符串的顏色，發現已知的（命名）色表中最接近的匹配。

library(plotrix) 
sapply(rainbow(4), color.id) 
# $`#FF0000FF` 
# [1] "red" "red1" 
# 
# $`#80FF00FF` 
# [1] "chartreuse" "chartreuse1" 
# 
# $`#00FFFFFF` 
# [1] "cyan" "cyan1" 
# 
# $`#8000FFFF` 
# [1] "purple" 

---

*學分吉姆檸檬和他的答案在這裏：Convert color hex code to color names。

Answer 2

也許不是最完美的解決方案，但它應該完成這項工作：

color.names <- function(d) { 
    # get RGB components of d and convert to data frame 
    z2 <- as.data.frame(t(col2rgb(d))) 

    # get RGB components of standard colors and convert them to data frame 
    z <- as.data.frame(t(sapply(colors(distinct=T),col2rgb))) 
    colnames(z) <- colnames(z2) 
    z$name <- rownames(z) 

    # EDIT: original answer used 'merge', which messed up the order 
    library(dplyr) 
    z2 %>% left_join(z) %>% select(name) 

} 

color.names(rainbow(4)) 
# name 
# 1 red 
# 2 <NA> 
# 3 cyan 
# 4 <NA> 

功能color.names使用輸入爲col2rgb相同，即任何三種

矢量的R顏色規範，即 或者顏色名稱（如顏色（）列出），十六進制字符串 形式「#rrggbb」或「#rrggbbaa」（請參閱​​rgb），或者一個正整數i 意味着調色板（）[一世]。

，所以你可以用它做color.names(1:8)

對於計算效率得到標準顏色的名稱，數據與標準顏色設置，可以預先計算如下例：

init.color.names <- function() { 
    z <- as.data.frame(t(sapply(colors(distinct=T),col2rgb))) 
    colnames(z) <- colnames(z2) 
    z$name <- rownames(z) 
    library(dplyr) 

    function(d) { 
    z2 <- as.data.frame(t(col2rgb(d)))  
    z2 %>% left_join(z) %>% select(name) } 
} 
cl <- init.color.names() 
cl(1:3) 
cl(rainbow(4)) 

Answer 3

可能更好的方法，但這裏有一個使用索引：

colors()[match(rgb(t(col2rgb(rainbow(4))), 
    maxColorValue = 255), c(rgb(t(col2rgb(colors())), maxColorValue = 255)))] 


## [1] "red" NA  "cyan" NA