查找接近colorBrewer调色板的颜色名称

Question

我希望使用R包SNA进行社交网络分析。SNA仅使用R颜色名称（文本名称）来给元素着色。

我想要在ColorBrewer调色板（set3）中找到与R中颜色名称接近的匹配项。

在RGB空间中，几乎没有完全匹配的颜色。

require(RColorBrewer) 
brew10 <- brewer.pal(10, "Set3")
rcol <- colors()
brew10rgb <- col2rgb(brew10)
allrgb <- col2rgb(rcol)
apply(t(brew10rgb), 1, paste, collapse="$$") %in% apply(t(allrgb), 1, paste,collapse="$$")
brew10rgb[,1]
fltr <- allrgb[1,]==141
allrgb[,fltr]
fltr <- allrgb[2,]==211
allrgb[,fltr]

有没有办法为R中的定性调色板选择好的颜色名称，或将这些RColorBrewer颜色映射到现有颜色？

- Chris

Answer 1

看看这是否有用（它是 RGB 空间上的 LI 距离）：

col.dist <- function(inp, comp) sum( abs(inp - col2rgb(comp) ) )

colors()[ apply(col2rgb(brew10), 2, 
             function(z) which.min( sapply(colors(), 
                           function(x) col.dist(inp=z, comp=x) ) ) ) ]
#-----------
 [1] "paleturquoise3"  "moccasin"        "lightsteelblue"  "salmon" 
 [5] "lightskyblue3"   "sandybrown"      "darkolivegreen2" "thistle2"
 [9] "gray85"          "orchid3"   

看起来可能已经成功，看：

display.brewer.pal(10,"Set3")

（虽然我从未见过那种颜色的蓟草，我认为第7个颜色更像是"浅橄榄色"而不是"深橄榄色"。）如果你只调用一次颜色并存储该矩阵，你可能会得到更快的响应，尽管这似乎是可以接受的。请注意保留HTML标记。

- IRTFM

---

太好了！我正在教授一个工作坊，想要使用好的颜色，但又不想深入研究一堆颜色名称和调色板的哲学！我已经得到了我的列表！ - emudrak