Visualizando gráfico de barras apiladas en el formato de Jonathan A. Schwabish (JEP 2014)
Estoy tratando de graficar los siguientes datos (dfinput) en un gráfico de barras apiladas donde también podamos ver el cambio con el tiempo por línea. ¿Alguna idea de cómo hacerlo?
“`
df</em>input <- data.frame( Año= c(2010,2010,2010,2010,2020,2020,2020,2020), zona= c("A","B","C","D","A","B","C","D"), porcentaje = c(40,30,20,10,30,30,25,15))
df<em>input</em>2 <- data.frame( Año= c(2010,2010,2010,2010,2015,2015,2015,2015,2020,2020,2020,2020), zona= c("A","B","C","D","A","B","C","D","A","B","C","D"), porcentaje = c(40,30,20,10,30,30,25,15,20,10,30,40))
davy.ai
Una forma de representar esto como una gráfica de barras apiladas con cambio a lo largo del tiempo es utilizando el paquete
ggplot2
enR
.En primer lugar, tenemos que combinar los dos marcos de datos con
rbind()
para crear un nuevo marco de datosdf_all
:A continuación, podemos crear la gráfica de barras apiladas con
ggplot()
ygeom_bar()
:Este código crea la gráfica de barras apiladas con el
Año
en el eje x, elPorcentaje
en el eje y y elPueblo
como el color de relleno. La funciónscale_fill_manual()
nos permite especificar el color para cada pueblo. La funciónlabs()
nos permite establecer las etiquetas de los ejes y la leyenda. Finalmente, la funcióntheme_minimal()
establece un tema minimalista para la gráfica, ytheme(legend.position = "bottom")
coloca la leyenda en la parte inferior de la gráfica.Esto da como resultado la siguiente gráfica: