ggplot2 - gráfico de barras con stack y dodge

Question

Estoy tratando de crear un diagrama de barras usando ggplot2 donde estoy apilando por una variable y esquivando por otra.

Aquí es un conjunto de datos de ejemplo:

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)) 

me gustaría crear un barplot donde x=treatment, y=total, la variable apilada es type y la variable esquivado es year. Por supuesto que puedo hacer uno u otro:

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") 

¡Pero no ambos! Gracias a cualquiera que pueda dar consejos.

Answer 1

Aquí está una alternativa toma utilizando tallar en lugar de esquivar:

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

Con el cambio sugerido de Tyler:

Answer 2

Lo más cercano que puede obtener es dibujando un borde alrededor de las barras dodged para resaltar los valores apilados type.

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