Modifier l'ordre d'empilement dans la zone empilée ggplot graphique

Question

je les données suivantes:

df <- as.data.frame(c(rep(1,3),rep(2,3),rep(3,3))) 
names(df) <- "cont_var" 
df$factor_var <- as.factor(rep(c("fac1","fac2","fac3"),3)) 
df$prop <- c(10,20,70,20,30,50,25,40,35) 

Les niveaux de « factor_var » être:

> levels(df$factor_var) 
[1] "fac1" "fac2" "fac3" 

Je fais une parcelle de zone empilés en utilisant les éléments suivants:

library(ggplot) 
ggplot(df, aes(x=cont_var, y=prop, fill=factor_var)) + 
    geom_area(colour="black",size=.2, alpha=.8) + 
    scale_fill_manual(values=c("blue", "grey", "red")) 

qui renvoie le résultat suivant:

La légende montre "factor_var" ordonné selon les niveaux vus auparavant mais les zones ne sont pas empilées dans le même ordre. Comment puis-je produire une sortie avec du rouge en bas puis du gris puis du bleu empilé en haut comme c'est le cas dans la légende?

(. NB Ceci est l'ordre que j'ai besoin (factor_var étant une variable ordonnée), il est non seulement un cas d'alignement l'empilement à l'ordre de légende pour des raisons esthétiques.)

EDIT: Résultat souhaité indiqué ci-dessous

SOLUTION !!

réordonner les dataframe est nécessaire de créer le résultat souhaité:

newdata <- df[order(df$cont_var, df$factor_var),] 

Un grand merci pour votre aide.

Answer 1

Vous pouvez changer l'ordre de votre légende en ajoutant guides(fill = guide_legend(reverse=TRUE)) à votre code:

ggplot(dat, aes(x=cont_var, y=prop, fill=factor_var)) + 
    geom_area(colour="black",size=.2, alpha=.8) + 
    scale_fill_manual(values=c("blue", "grey", "red")) + 
    guides(fill = guide_legend(reverse=TRUE)) 

cela donne:

---

Vous pouvez définir les niveaux de facteur avant de tracer:

# manually ordering the factor levels 
dat$factor_var2 <- factor(dat$factor_var, levels=c("fac3","fac2","fac1")) 
# automatcally ordering the factor levels (copied from Jakub P's answer) 
dat$factor_var2 <- factor(dat$factor_var, sort(unique(dat$factor_var), decreasing = TRUE)) 

ggplot(dat, aes(x=cont_var, y=prop, fill=factor_var2)) + 
    geom_area(colour="black",size=.2, alpha=.8) + 
    scale_fill_manual(values=c("blue", "grey", "red")) 

cela donne:

Answer 2

Est-ce que ce travail?

df$factor_var <- rep(c("fac1","fac2","fac3"),3) 
df$factor_var <- factor(df$factor_var, sort(unique(df$factor_var), decreasing = T)) 

Sur les données de test que vous avez proposé ce produit résultat cohérent de FAC1 étant rouge et au fond, etc.