Найти названия цветов для цветов рядом с палитрой colorBrewer

Question

Я хочу использовать SNA-пакет R для анализа социальной сети. Элементы SNA colors используют только имена цветов 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 цвета существующих цветов?

Answer 1

Посмотрите, полезно ли это. (Это LI расстояние на RgB пространстве):

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 будет скорее «светлой», чем «темной».) У вас будет более быстрый ответ, хотя это кажется приемлемым, если вы однажды позвонили в цвета и сохранили эту матрицу.