Znajdź nazwy kolorów dla kolorów zbliżonych do palety kolorówBrewer

Question

Chcę użyć pakietu S na R do analizy sieci społecznościowej. SNA kolory elementów tylko za pomocą kolorów R nazwy (nazwy tekstowe).

Chciałbym znaleźć blisko mecze z palety ColorBrewer (set3) do nazw kolorów w R.

Nie ma wielu dokładnych dopasowań w przestrzeni 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] 

Czy istnieje sposób, aby podnieść dobrych nazw kolorów na palecie w badania jakościowego lub mapować te kolory RColorBrewer do istniejących kolorów?

Answer 1

Sprawdź, czy jest to przydatne. (Jest to odległość LI na przestrzeni 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" 

Wygląda to może udało patrząc na:

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

(Chociaż nigdy nie zobaczyć oset tego koloru, a musiałbym numer 7 jest bardziej "lightolive" niż "darkolive".) Prawdopodobnie uzyskasz szybszą odpowiedź, chociaż wydaje się to akceptowalne, jeśli raz wykonałeś połączenie z kolorami i zachowałeś tę matrycę.