R help es - Mar 2023 - Cambiar orden top-down stacked area ggplot2

Buenos días, con el código de abajo obtengo un agregate que empieza por
abajo con la categoría C7 y termina arriba por la C1. Me gustaría que
fuera al revés, que la C1 estuviera abajo y ascendiera hasta tener la C7
arriba.
Gracias,
Manuel

year<-c(rep(1990, times=7),rep(2018, times=7),rep(2040, times=7),rep(2060,
times=7),rep(2080, times=7),rep(2100, times=7))
cat<-c(rep(c("C1","C2","C3","C4","C5","C6","C7"),
times=6))
sbcd<-c(0, 0, 0, 0, 0, 0, 0, 90, 164, 132, 175, 234, 6, 0, 265, 73, 143,
595, 560, 94, 3, 256, 72, 157, 657, 618, 143, 3, 279, 75, 180, 688, 711,
205, 5, 275, 95, 185, 672, 817, 305, 5)
data <- data.frame(year, sbcd, cat)

ggplot(data, aes(x=year, y=sbcd, fill=cat)) +
  geom_area()+

scale_fill_manual(values=c("lightgoldenrodyellow","#FEE391","#FEC44F","#FE9929","#CD6600","#8B1A1A","red"))

	[[alternative HTML version deleted]]

Después de crear el vector para la variable "cat", haz que sea un
factor con niveles (antes de hacer el gráfico):
cat <- as.factor(cat, levels =
c("C1","C2","C3","C4","C5","C6","C7"))

Quizá simplemente con hacerla factor ya te ordene bien las categorías. Si no lo
hace, además utiliza  también al final de ggplot:
+ scale_x_discrete(limits = rev(levels(cat)))

Un saludo

Isidro Hidalgo Arellano
Observatorio del Mercado de Trabajo
Junta de Comunidades de Castilla - La Mancha

-----Mensaje original-----
De: R-help-es <r-help-es-bounces en r-project.org> En nombre de Manuel
Mendoza
Enviado el: lunes, 27 de marzo de 2023 5:54
Para: Lista R <r-help-es en r-project.org>
Asunto: [R-es] Cambiar orden top-down stacked area ggplot2

Buenos días, con el código de abajo obtengo un agregate que empieza por abajo
con la categoría C7 y termina arriba por la C1. Me gustaría que fuera al revés,
que la C1 estuviera abajo y ascendiera hasta tener la C7 arriba.
Gracias,
Manuel

year<-c(rep(1990, times=7),rep(2018, times=7),rep(2040, times=7),rep(2060,
times=7),rep(2080, times=7),rep(2100, times=7))
cat<-c(rep(c("C1","C2","C3","C4","C5","C6","C7"),
times=6)) sbcd<-c(0, 0, 0, 0, 0, 0, 0, 90, 164, 132, 175, 234, 6, 0, 265, 73,
143, 595, 560, 94, 3, 256, 72, 157, 657, 618, 143, 3, 279, 75, 180, 688, 711,
205, 5, 275, 95, 185, 672, 817, 305, 5) data <- data.frame(year, sbcd, cat)

ggplot(data, aes(x=year, y=sbcd, fill=cat)) +
  geom_area()+

scale_fill_manual(values=c("lightgoldenrodyellow","#FEE391","#FEC44F","#FE9929","#CD6600","#8B1A1A","red"))

	[[alternative HTML version deleted]]

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es