Consiglia un colore di scala per 13 o più categorie

Question

La scala predefinita per ggplot2 per 13 o più colori non offre un elevato grado di differenziazione visiva. Inoltre, la scala di birra più lunga termina in 12 categorie (Set3).

Potete consigliare una scala di colori che sarebbe visivamente utile per 13 o più categorie?

esempio riproducibile:

dat <- data.frame(value=rnorm(100), 
category=sample(letters[1:13],100,replace=T), 
other=sample(letters[1:5],100,replace=T)) 

# Default Scale 
ggplot(dat, aes(other,value,color=category)) + 
geom_point(size=6) + 
coord_flip() 

# Brewer Scale // notice the blank at the end! 
ggplot(dat, aes(other,value,color=category)) + 
geom_point(size=6) + 
coord_flip() + 
scale_color_brewer(palette="Set3") 

Nota: sfaccettatura non è un'opzione nel mio caso (cliente non piace, vai a capire)

Answer 1

Si potrebbe utilizzare colorRampPalette e scale_colour_manual fudge una categoria 13 .

set3 <- colorRampPalette(brewer.pal('Set3',n=12)) 

ggplot(dat, aes(other,value,color=category)) + 
    geom_point(size=6) + 
    coord_flip() + 
    scale_color_manual(values = setNames(set3(13), levels(dat$category))) 

Ciò abbattere, in quanto i colori non sarà ben distinguibile se si imposta i numeri richiesti troppo alte.