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

[Mauricio Monsalvo]

​​
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 Asistentes
1  De 45d     EPI        405
2   De 1a     EPI        812
3   De 2a     EPI       1639
4   De 3a     EPI       2202
5   De 4a     EPI       1994
6   De 5a     EPI        255
7  De 45d SemiEPI        614
8   De 1a SemiEPI        881
9   De 2a SemiEPI       2174
10  De 3a SemiEPI       3254
11  De 4a SemiEPI       2934
12  De 5a SemiEPI        662
13 De 45d   NoEPI        565
14  De 1a   NoEPI        316
15  De 2a   NoEPI        615
16  De 3a   NoEPI        956
17  De 4a   NoEPI        840
18  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 -Clase
Estoy 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)))​
[image: Imágenes integradas 1]
​
-- 
Mauricio
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170624/40d8a7c9/attachment-0001.html>
------------ 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/20170624/40d8a7c9/attachment-0001.png>