2013-08-23 185 views
8

我想使用R包SNA進行社交網絡分析。 SNA僅使用R顏色名稱(文本名稱)爲元素着色。查找顏色接近colorBrewer調色板的顏色名稱

我想找到附近從調色板在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顏色映射到現有的顏色嗎?

回答

10

看看這是否有用。 (這是對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") 

enter image description here (雖然我從來沒有看到一個薊那種顏色,我將有思想數字7更像是一種「淺色」而不是「暗黑色」)。你可能會得到更快的反應,儘管這樣做似乎可以接受,如果你一次性調用顏色並存儲矩陣。

+1

+1對於顏色評論 – Gregor