[R-es] Cambiar orden top-down stacked area ggplot2

[Manuel Mendoza]

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