[R-es] Orden de categorías en gráficos de barras (position = "stack")

[jose luis]

Es curioso porque aplicando tu script me queda como tu quieres que te quede a ti no? No he hecho nada que no hayas hecho tu

ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) +       geom_bar(stat = "identity", position = "stack") +     geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) +      labs(title = "Asistentes por tipo de servicio según tramo de edad."          , subtitle = subtit.todos          , x = "", y = "Cantidad de asistentes"          , caption = caption)
 

    El Sábado 24 de junio de 2017 23:07, Mauricio Monsalvo <m.monsalvo en gmail.com> escribió:
 

 ​​Hola. Estoy intentando ordenar el gráfico tal que las columnas se apilen en el siguiente orden: debajo, los EPI; los SemiEPI en el medio y los NoEpi arriba de todo.Estos son mis datos:
> tabla.barras   Rangos   Clase Asistentes1  De 45d     EPI        4052   De 1a     EPI        8123   De 2a     EPI       16394   De 3a     EPI       22025   De 4a     EPI       19946   De 5a     EPI        2557  De 45d SemiEPI        6148   De 1a SemiEPI        8819   De 2a SemiEPI       217410  De 3a SemiEPI       325411  De 4a SemiEPI       293412  De 5a SemiEPI        66213 De 45d   NoEPI        56514  De 1a   NoEPI        31615  De 2a   NoEPI        61516  De 3a   NoEPI        95617  De 4a   NoEPI        84018  De 5a   NoEPI        609​Probé cambiando el orden en el factor, pero no altera el orden en el gráfico:​​tabla.barras$Clase <- as.factor(tabla.barras$Clase)factor(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))Ni:ordered(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))Tampoco parece alterarlo el ordenar la tabla como:
tabla.barras[order(Clase)] # ni -ClaseEstoy seguro que el orden en el ggplot2 lo pone el orden que trae la tabla con los datos, pero estoy perdido por los resultados.subtit.todos <- "Todos los Espacios (N = 311)."caption <- 'FLACSO - UNICEF - SENAF (2017)'ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) + # 
     geom_bar(stat = "identity", position = "stack") +     geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) +      labs(title = "Asistentes por tipo de servicio según tramo de edad."          , subtitle = subtit.todos          , x = "", y = "Cantidad de asistentes"          , caption = caption) +     theme(legend.position = "bottom", legend.direction = "vertical", legend.title = element_blank()) +     guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow = 1), size = 3) +      theme(plot.caption = element_text(size = 8, hjust = 0, margin = margin(t = 15)))​
​-- 
Mauricio_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

   
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170625/821c9222/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 67964 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170625/821c9222/attachment-0002.png>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 66321 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170625/821c9222/attachment-0003.png>