<html><head></head><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:16px"><div id="yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><img class="ymail-preserve-class inline-image-guid-a2c7d72b-4b12-4cfa-d445-4c532df2f283 rte-inline-saved-image" src="cid:c5c5f958-961f-ebff-9f77-c639bf4a4224@yahoo.com" data-id="inline-image-guid-a2c7d72b-4b12-4cfa-d445-4c532df2f283" alt="Imagen en el mensaje" style="width:100%;max-width:800px;max-height:633px;" id="yui_3_16_0_ym19_1_1498377097131_9134"><br><br></div><div id="yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr">Es curioso porque aplicando tu script me queda como tu quieres que te quede a ti no? </div><div id="yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr">No he hecho nada que no hayas hecho tu</div><div id="yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><br></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498377097131_9442"><font size="2" id="yui_3_16_0_ym19_1_1498377097131_9524">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) + </font></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498377097131_9443"><font size="2" id="yui_3_16_0_ym19_1_1498377097131_9523"> geom_bar(stat = "identity", position = "stack") +</font></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498377097131_9444"><font size="2" id="yui_3_16_0_ym19_1_1498377097131_9522"> geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) + </font></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498377097131_9445"><font size="2"> labs(title = "Asistentes por tipo de servicio según tramo de edad."</font></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498377097131_9446"><font size="2"> , subtitle = subtit.todos</font></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498377097131_9447"><font size="2"> , x = "", y = "Cantidad de asistentes"</font></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498377097131_9448"><font size="2"> , caption = caption)</font></div><div id="yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><br></div> <div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: Courier New, courier, monaco, monospace, sans-serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font size="2" face="Arial"> El Sábado 24 de junio de 2017 23:07, Mauricio Monsalvo <m.monsalvo@gmail.com> escribió:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv4536804225"><div dir="ltr"><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;"></div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;">Hola. </div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;">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.</div><div class="yiv4536804225gmail_default"><div class="yiv4536804225gmail_default"><span style="font-family:tahoma, sans-serif;">Estos son mis datos:</span><br></div></div><div class="yiv4536804225gmail_default"><div class="yiv4536804225gmail_default"><font face="monospace, monospace">> tabla.barras</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> Rangos Clase Asistentes</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">1 De 45d EPI 405</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">2 De 1a EPI 812</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">3 De 2a EPI 1639</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">4 De 3a EPI 2202</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">5 De 4a EPI 1994</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">6 De 5a EPI 255</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">7 De 45d SemiEPI 614</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">8 De 1a SemiEPI 881</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">9 De 2a SemiEPI 2174</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">10 De 3a SemiEPI 3254</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">11 De 4a SemiEPI 2934</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">12 De 5a SemiEPI 662</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">13 De 45d NoEPI 565</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">14 De 1a NoEPI 316</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">15 De 2a NoEPI 615</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">16 De 3a NoEPI 956</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">17 De 4a NoEPI 840</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">18 De 5a NoEPI 609</font></div></div><div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;">Probé cambiando el orden en el factor, pero no altera el orden en el gráfico:</div></div><div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;"><span style="font-family:monospace, monospace;">tabla.barras$Clase <- as.factor(tabla.barras$Clase)</span></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace">factor(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))</font></div><div class="yiv4536804225gmail_default"><font face="tahoma, sans-serif">Ni:</font></div><div class="yiv4536804225gmail_default"><div class="yiv4536804225gmail_default"><font face="monospace, monospace">ordered(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))</font></div><div style="font-family:monospace, monospace;"><span style="font-family:tahoma, sans-serif;">Tampoco parece alterarlo el ordenar la tabla como:</span><br></div></div><div class="yiv4536804225gmail_default"><div class="yiv4536804225gmail_default"><div class="yiv4536804225gmail_default"><font face="monospace, monospace">tabla.barras[order(Clase)] # ni -Clase</font></div><div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;">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.</div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;"><span style="font-family:monospace, monospace;">subtit.todos <- "Todos los Espacios (N = 311)."</span></div></div></div><div style="font-family:monospace, monospace;"><div>caption <- 'FLACSO - UNICEF - SENAF (2017)'</div></div><div style="font-family:monospace, monospace;">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) + # <br></div></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> geom_bar(stat = "identity", position = "stack") +</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) + </font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> labs(title = "Asistentes por tipo de servicio según tramo de edad."</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> , subtitle = subtit.todos</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> , x = "", y = "Cantidad de asistentes"</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> , caption = caption) +</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> theme(legend.position = "bottom", legend.direction = "vertical", legend.title = element_blank()) +</font></div><div class="yiv4536804225gmail_default"><font face="monospace, monospace"> guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow = 1), size = 3) + </font></div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;"><span style="font-family:monospace, monospace;"> theme(plot.caption = element_text(size = 8, hjust = 0, margin = margin(t = 15)))</span></div><img src="cid:DJ88ww8ILZzDFsVfuw1i" alt="Imágenes integradas 1" width="461" height="307"><br></div><div><div class="yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;display:inline;"></div>-- <br></div><div class="yiv4536804225gmail-m_3174888530036560799gmail_signature"><div dir="ltr"><font face="tahoma, sans-serif">Mauricio</font></div></div>
</div></div>_______________________________________________<br>R-help-es mailing list<br><a ymailto="mailto:R-help-es@r-project.org" href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br><a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br><br></div> </div> </div> </div></div></body></html>