ggplot2 - trama bar con stack e dodge

Question

Sto provando a creare un barplot usando ggplot2 dove sto impilando da una variabile e schivando da un'altra.

Ecco un set di dati di esempio:

df=data.frame(
    year=rep(c("2010","2011"),each=4), 
    treatment=rep(c("Impact","Control")), 
    type=rep(c("Phylum1","Phylum2"),each=2), 
    total=sample(1:100,8)) 

desidero creare un barplot dove x=treatment, y=total, la variabile impilati è type e la variabile schivato è year. Certo che posso fare uno o l'altro:

ggplot(df,aes(y=total,x=treatment,fill=type))+geom_bar(position="dodge",stat="identity") 

ggplot(df,aes(y=total,x=treatment,fill=year))+geom_bar(position="dodge",stat="identity") 

ma non entrambi! Grazie a tutti coloro che possono dare consigli.

Answer 1

Ecco un'alternativa prendere con sfaccettatura invece di schivare:

ggplot(df, aes(x = year, y = total, fill = type)) + 
    geom_bar(position = "stack", stat = "identity") + 
    facet_wrap(~ treatment) 

Con il cambiamento suggerito di Tyler:

Answer 2

Il più vicino è possibile disegnando un bordo attorno alle barre dodged per evidenziare i valori impilati type.

ggplot(df, aes(treatment, total, fill = year)) + 
geom_bar(stat="identity", position="dodge", color="black")