<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Mira la versión de ggplot2 que estás usando por tenerla actualizada a la última...</div><div class="gmail_default" style="font-family:verdana,sans-serif">A mi me funciona introduciendo algún cambio  salvo la última línea cuando cambias el tema...</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">#-----------</div><div class="gmail_default"><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">Lines <- " id   Rangos   Clase Asistentes</font></div><div class="gmail_default"><font face="verdana, sans-serif">1   45d     EPI        405</font></div><div class="gmail_default"><font face="verdana, sans-serif">2    1a     EPI        812</font></div><div class="gmail_default"><font face="verdana, sans-serif">3    2a     EPI       1639</font></div><div class="gmail_default"><font face="verdana, sans-serif">4    3a     EPI       2202</font></div><div class="gmail_default"><font face="verdana, sans-serif">5    4a     EPI       1994</font></div><div class="gmail_default"><font face="verdana, sans-serif">6    5a     EPI        255</font></div><div class="gmail_default"><font face="verdana, sans-serif">7   45d SemiEPI        614</font></div><div class="gmail_default"><font face="verdana, sans-serif">8    1a SemiEPI        881</font></div><div class="gmail_default"><font face="verdana, sans-serif">9    2a SemiEPI       2174</font></div><div class="gmail_default"><font face="verdana, sans-serif">10   3a SemiEPI       3254</font></div><div class="gmail_default"><font face="verdana, sans-serif">11   4a SemiEPI       2934</font></div><div class="gmail_default"><font face="verdana, sans-serif">12   5a SemiEPI        662</font></div><div class="gmail_default"><font face="verdana, sans-serif">13  45d   NoEPI        565</font></div><div class="gmail_default"><font face="verdana, sans-serif">14   1a   NoEPI        316</font></div><div class="gmail_default"><font face="verdana, sans-serif">15   2a   NoEPI        615</font></div><div class="gmail_default"><font face="verdana, sans-serif">16   3a   NoEPI        956</font></div><div class="gmail_default"><font face="verdana, sans-serif">17   4a   NoEPI        840</font></div><div class="gmail_default"><font face="verdana, sans-serif">18   5a   NoEPI        609</font></div><div class="gmail_default"><font face="verdana, sans-serif">"</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">DF <- read.table(textConnection(Lines), header=T, <a href="http://as.is">as.is</a> = TRUE)</font></div><div class="gmail_default"><font face="verdana, sans-serif">tabla.barras <- DF</font></div><div class="gmail_default"><font face="verdana, sans-serif">tabla.barras$Clase2 <- factor(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">library(ggplot2)</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">subtit.todos <- "Todos los Espacios (N = 311)."</font></div><div class="gmail_default"><font face="verdana, sans-serif">caption <- 'FLACSO - UNICEF - SENAF (2017)'</font></div><div class="gmail_default"><font face="verdana, sans-serif">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes,  group = Clase2, fill = Clase2)) +  </font></div><div class="gmail_default"><font face="verdana, sans-serif">  geom_col(position = "stack") +</font></div><div class="gmail_default"><font face="verdana, sans-serif">  geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) + </font></div><div class="gmail_default"><font face="verdana, sans-serif">  labs(title = "Asistentes por tipo de servicio según tramo de edad."</font></div><div class="gmail_default"><font face="verdana, sans-serif">       , subtitle = subtit.todos</font></div><div class="gmail_default"><font face="verdana, sans-serif">       , x = "", y = "Cantidad de asistentes" ) +</font></div><div class="gmail_default"><font face="verdana, sans-serif">       # , caption = caption) +</font></div><div class="gmail_default"><font face="verdana, sans-serif">  theme(legend.position = "bottom", legend.direction = "horizontal", legend.title = element_blank()) +</font></div><div class="gmail_default"><font face="verdana, sans-serif">  guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow = 1), size = 3) </font></div><div style="font-family:verdana,sans-serif"><br></div></div><div class="gmail_default" style="font-family:verdana,sans-serif">#-----------</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Saludos,</div><div class="gmail_default" style="font-family:verdana,sans-serif">Carlos Ortega</div><div class="gmail_default" style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 25 de junio de 2017, 10:19, jose luis via R-help-es <span dir="ltr"><<a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es@r-project.org</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:Courier New,courier,monaco,monospace,sans-serif;font-size:16px"><div id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><img class="m_4863746216415793021ymail-preserve-class m_4863746216415793021inline-image-guid-a2c7d72b-4b12-4cfa-d445-4c532df2f283 m_4863746216415793021rte-inline-saved-image" src="cid:c5c5f958-961f-ebff-9f77-c639bf4a4224@yahoo.com" alt="Imagen en el mensaje" style="width:100%;max-width:800px;max-height:633px" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9134"><br><br></div><div id="m_4863746216415793021yui_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="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr">No he hecho nada que no hayas hecho tu</div><span class=""><div id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><br></div><div id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><br></div><div dir="ltr" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9442"><font size="2" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9524">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) +  </font></div></span><span class=""><div dir="ltr" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9443"><font size="2" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9523">     geom_bar(stat = "identity", position = "stack") +</font></div><div dir="ltr" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9444"><font size="2" id="m_4863746216415793021yui_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="m_4863746216415793021yui_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="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9446"><font size="2">          , subtitle = subtit.todos</font></div><div dir="ltr" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9447"><font size="2">          , x = "", y = "Cantidad de asistentes"</font></div><div dir="ltr" id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9448"><font size="2">          , caption = caption)</font></div><div id="m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899" dir="ltr"><br></div> <div class="m_4863746216415793021qtdSeparateBR"><br><br></div></span><div class="m_4863746216415793021yahoo_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><div class="h5"> <div dir="ltr"><font size="2" face="Arial"> El Sábado 24 de junio de 2017 23:07, Mauricio Monsalvo <<a href="mailto:m.monsalvo@gmail.com" target="_blank">m.monsalvo@gmail.com</a>> escribió:<br></font></div>  <br><br> </div></div><div class="m_4863746216415793021y_msg_container"><div><div class="h5"><div id="m_4863746216415793021yiv4536804225"><div dir="ltr"><div class="m_4863746216415793021yiv4536804225gmail_default" style="font-family:tahoma,sans-serif">​​</div><div class="m_4863746216415793021yiv4536804225gmail_default" style="font-family:tahoma,sans-serif">Hola. </div><div class="m_4863746216415793021yiv4536804225gmail_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="m_4863746216415793021yiv4536804225gmail_default"><div class="m_4863746216415793021yiv4536804225gmail_default"><span style="font-family:tahoma,sans-serif">Estos son mis datos:</span><br></div></div><div class="m_4863746216415793021yiv4536804225gmail_default"><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">> tabla.barras</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">   Rangos   Clase Asistentes</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">1  De 45d     EPI        405</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">2   De 1a     EPI        812</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">3   De 2a     EPI       1639</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">4   De 3a     EPI       2202</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">5   De 4a     EPI       1994</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">6   De 5a     EPI        255</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">7  De 45d SemiEPI        614</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">8   De 1a SemiEPI        881</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">9   De 2a SemiEPI       2174</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">10  De 3a SemiEPI       3254</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">11  De 4a SemiEPI       2934</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">12  De 5a SemiEPI        662</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">13 De 45d   NoEPI        565</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">14  De 1a   NoEPI        316</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">15  De 2a   NoEPI        615</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">16  De 3a   NoEPI        956</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">17  De 4a   NoEPI        840</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">18  De 5a   NoEPI        609</font></div></div><div><div class="m_4863746216415793021yiv4536804225gmail_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="m_4863746216415793021yiv4536804225gmail_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="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">factor(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="tahoma, sans-serif">Ni:</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><div class="m_4863746216415793021yiv4536804225gmail_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="m_4863746216415793021yiv4536804225gmail_default"><div class="m_4863746216415793021yiv4536804225gmail_default"><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">tabla.barras[order(Clase)] # ni -Clase</font></div><div><div class="m_4863746216415793021yiv4536804225gmail_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="m_4863746216415793021yiv4536804225gmail_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="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     geom_bar(stat = "identity", position = "stack") +</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) + </font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     labs(title = "Asistentes por tipo de servicio según tramo de edad."</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">          , subtitle = subtit.todos</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">          , x = "", y = "Cantidad de asistentes"</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">          , caption = caption) +</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     theme(legend.position = "bottom", legend.direction = "vertical", legend.title = element_blank()) +</font></div><div class="m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow = 1), size = 3) + </font></div><div class="m_4863746216415793021yiv4536804225gmail_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="m_4863746216415793021yiv4536804225gmail_default" style="font-family:tahoma,sans-serif;display:inline">​</div>-- <br></div><div class="m_4863746216415793021yiv4536804225gmail-m_3174888530036560799gmail_signature"><div dir="ltr"><font face="tahoma, sans-serif">Mauricio</font></div></div>
</div></div></div></div>______________________________<wbr>_________________<br>R-help-es mailing list<br><a href="mailto:R-help-es@r-project.org" target="_blank">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/<wbr>listinfo/r-help-es</a><br><br></div>  </div> </div>  </div></div></div><br>______________________________<wbr>_________________<br>
R-help-es mailing list<br>
<a 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" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/<wbr>listinfo/r-help-es</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span></div>
</div>