colorBrewerパレットの近くの色の色名を検索

Question

ソーシャルネットワーク分析を行うためにRパッケージSNAを使用したいと思います。 SNAは、Rの色名（テキスト名）のみを使用して要素を色付けします。

私は近いRGB空間で多くの正確な一致はありませんR.

に色の名前にColorBrewerパレット（SET3）から一致する検索したいと思います。

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色をマップする方法はありますか？

Answer 1

これが有用かどうかを確認してください。

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" 

を見て、それが成功したかもしれないようになっています：（これは、RGB空間上のLIの距離です）私はアザミの色を見たことがないが、（

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

、と私が持っているでしょうあなたが色を一度呼び出してその行列を保存すると、これは容認されたように見えるかもしれませんが、より高速な応答を得られるでしょう。