Trova i nomi dei colori per i colori vicini alla tavolozza di ColorBrewer

Question

Desidero utilizzare l'SNA del pacchetto R per eseguire l'analisi dei social network. Gli elementi dei colori SNA utilizzano solo i nomi dei colori R (nomi di testo).

mi piacerebbe trovare vicino corrisponde da una tavolozza ColorBrewer (set3) per i nomi dei colori in R.

Non ci sono molte corrispondenze esatte nello spazio 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] 

Esiste un modo per raccogliere buoni nomi dei colori per una tavolozza qualitativo R, o per mappare questi colori RColorBrewer a colori esistenti?

Answer 1

Verificare se questo è utile. (E 'una distanza LI sullo spazio 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" 

sembra che potrebbe essere riuscito guardando:

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

(Anche se non ho mai visto un cardo quel colore, e avrei pensavo che il numero 7 fosse più "lightolive" che "darkolive".) Avresti una risposta più veloce, anche se questo sembrava accettabile, se avevi fatto una volta la chiamata ai colori e memorizzato quella matrice.