ggplot2 ordre inverse de scale_brewer

Question

Une chose apparemment très simple à faire mais qui m'a pris >30min sans trouver de réponse.

Comment inverser l'ordre des couleurs ? En regardant documentation pour scale_brewer je me suis dit que c'était possible formatter= l'argument étant suspicieux. J'ai passé 'rev' et ensuite rev mais ils n'ont aucun effet (pas de message d'erreur, juste ignorés).

Answer 1

La version CRAN de ggplot2 permet maintenant aux utilisateurs de spécifier direction=-1 en brasseur d'écailles pour inverser les couleurs. Ce qui suit produit le même tracé que la réponse acceptée.

ggplot(mtcars,aes(x = mpg, y = disp)) + 
  geom_point(aes(colour = factor(cyl))) + 
  scale_colour_brewer(palette="BuPu", direction=-1)

Answer 2

Je pense que vous voulez probablement sélectionner les couleurs en utilisant brewer.pal directement et ensuite utiliser scale_colour_manual :

library(ggplot2)
library(RColorBrewer)

ggplot(mtcars,aes(x = mpg, y = disp)) + 
    geom_point(aes(colour = factor(cyl))) + 
    scale_colour_manual(values = rev(brewer.pal(3, "BuPu")))

Alors vous pouvez rev l'ordre des couleurs là-bas.

À partir de la version 2.0.0 de ggplot, il existe maintenant une façon plus directe de le faire, voir la réponse de @pbaylis ci-dessous.

Answer 3

Cela n'aidera pas à résoudre le problème de l'OP - je le sais. Pour les échelles discrètes comme scale_..._brewer() en faisant scale_..._manual(values = rev(colorsYouHad)) est la bonne réponse.

Néanmoins, pour en continu les échelles, vous pouvez simplement passer :

scale_..._...(..., trans = "reverse")

par exemple, pour l'équivalent continu de scale_..._brewer() :

scale_..._distiller("My Scale", palette = "Spectral", trans = "reverse")

Answer 4

Si vous ne voulez pas vous battre directement avec RColorBrewer (un beau paquet), vous pouvez inverser les niveaux du facteur dans le data.frame original, puis le tracer :

dsamp <- diamonds[sample(nrow(diamonds), 1000), ] 

# Reverse the levels of the factor associated with color, here 'clarity'
# (Might be safer to assign this to a new column named, e.g., 'clarity2')
levels(dsamp$clarity) <- rev(levels(dsamp$clarity))

d <- qplot(carat, price, data = dsamp, colour = clarity)
d + scale_colour_brewer(breaks = levels(dsamp$clarity))

Et si vous voulez imprimer la clé dans le même ordre qu'avant le renversement, il suffit de faire ceci :

d + scale_colour_brewer(breaks = rev(levels(dsamp$clarity)))

Answer 5

Je sais, je suis très en retard pour la fête. Mais j'ai rencontré ce problème il y a quelque temps et j'ai utilisé la solution ci-dessus. Je suis actuellement en train de lire r4ds de Hadley Wickham et il y a une solution ridiculement facile, alors j'ai pensé la poster. Changez ça :

ggplot(mtcars,aes(x = mpg, y = disp)) + 
geom_point(aes(colour = factor(cyl)))

à ça :

ggplot(mtcars,aes(x = mpg, y = disp)) + 
geom_point(aes(colour = factor(-cyl))) #note the minus symbol