我想使用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 颜色映射到现有颜色?
看看这个是否有用。 (这是 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")
(Although I have never see a thistle that color, and I would have thought number 7 to be more of a "lightolive" than a "darkolive".) You would proably get faster response, although this seemed acceptable, if you made the call to colors once and stored that matrix.
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)