<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_1498457865803_119292"><span id="yui_3_16_0_ym19_1_1498457865803_119985">Si quieres que te quede centrado el valor dentro de cada casilla</span></div><div id="yui_3_16_0_ym19_1_1498457865803_119291"><span><br></span></div><div id="yui_3_16_0_ym19_1_1498457865803_119291"><span><br></span></div><div id="yui_3_16_0_ym19_1_1498457865803_119291"><span><br></span></div><div id="yui_3_16_0_ym19_1_1498457865803_119291"><span><br></span></div><div id="yui_3_16_0_ym19_1_1498457865803_119078">tabla.barras<-ddply(tabla.barras,.(Rangos), transform, Pos = ave(Asistentes, </div><div id="yui_3_16_0_ym19_1_1498457865803_119079"> FUN = cumsum) - Asistentes / 2)</div><div id="yui_3_16_0_ym19_1_1498457865803_119080"><br id="yui_3_16_0_ym19_1_1498457865803_119081"></div><div id="yui_3_16_0_ym19_1_1498457865803_119082">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes,  group = Rangos, fill = Clase)) +  </div><div id="yui_3_16_0_ym19_1_1498457865803_119083">  geom_bar(stat= "identity")+ </div><div id="yui_3_16_0_ym19_1_1498457865803_119084"><br id="yui_3_16_0_ym19_1_1498457865803_119085"></div><div id="yui_3_16_0_ym19_1_1498457865803_119086">  geom_text(aes(label = Asistentes,y=Pos), size = 3) + </div><div id="yui_3_16_0_ym19_1_1498457865803_119087">  labs(title = "Asistentes por tipo de servicio según tramo de edad."</div><div id="yui_3_16_0_ym19_1_1498457865803_119088">       , subtitle = subtit.todos</div><div id="yui_3_16_0_ym19_1_1498457865803_119089">       , x = "", y = "Cantidad de asistentes" ) +</div><div id="yui_3_16_0_ym19_1_1498457865803_119090">       # , caption = caption) +</div><div id="yui_3_16_0_ym19_1_1498457865803_119091">  theme(legend.position = "bottom", legend.direction = "horizontal", legend.title = element_blank()) +</div><div></div><div id="yui_3_16_0_ym19_1_1498457865803_119092">  guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow = 1), size = 3)</div><div dir="ltr" id="yui_3_16_0_ym19_1_1498457865803_119093"><br id="yui_3_16_0_ym19_1_1498457865803_119094"></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498457865803_119093"><br></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498457865803_119093"><img class="ymail-preserve-class inline-image-guid-dc25741c-11b2-d978-cfd2-2640d39b17b2 rte-inline-saved-image img-overlay-selected" src="cid:46226f79-2fcc-836c-d4a1-392714e5215e@yahoo.com" data-id="inline-image-guid-dc25741c-11b2-d978-cfd2-2640d39b17b2" alt="Imagen en el mensaje" style="width:100%;max-width:672px;max-height:672px;" id="yui_3_16_0_ym19_1_1498457865803_119204"><br><br></div><div dir="ltr" id="yui_3_16_0_ym19_1_1498457865803_119093"><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 Lunes 26 de junio de 2017 12:43, Mauricio Monsalvo <m.monsalvo@gmail.com> escribió:<br></font></div>  <br><br> <div class="y_msg_container"><div id="yiv7836941054"><div><div dir="ltr"><div class="yiv7836941054gmail_default" style="font-family:tahoma, sans-serif;">Bingo!! Muchas gracias, José Luis!</div></div><div class="yiv7836941054gmail_extra"><br clear="none"><div class="yiv7836941054yqt7268630853" id="yiv7836941054yqt42455"><div class="yiv7836941054gmail_quote">El 26 de junio de 2017, 7:13, jose luis <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:pepeceb@yahoo.es" target="_blank" href="mailto:pepeceb@yahoo.es">pepeceb@yahoo.es</a>></span> escribió:<br clear="none"><blockquote class="yiv7836941054gmail_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="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69132"><br clear="none"></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69132">Y asi?  Usando <span id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69248">group = Rangos, fill = Clase</span></div><div id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69132"><br clear="none"></div><div id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69132"><br clear="none"></div><div id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69132">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes,  <b id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69249">group = Rangos, fill = Clase</b>)) +  </div><div id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69114"></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69133">  geom_col(position = "stack")</div><div dir="ltr" id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69133"><br clear="none"></div><span class="yiv7836941054"></span><div dir="ltr" id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_69133"><img class="yiv7836941054m_-65486726269074473ymail-preserve-class yiv7836941054m_-65486726269074473inline-image-guid-1b5d23f9-8147-59d3-36fa-7af0de9bb5d7 yiv7836941054m_-65486726269074473rte-inline-saved-image" id="yiv7836941054m_-65486726269074473yui_3_16_0_ym19_1_1498457865803_71182" src="cid:4b673e07-023b-586a-96d7-1fd57c5c89b7@yahoo.com" alt="Imagen en el mensaje" style="width:100%;max-width:672px;max-height:672px;"><br clear="none"><br clear="none"></div> <div class="yiv7836941054m_-65486726269074473qtdSeparateBR"><br clear="none"><br clear="none"></div><div class="yiv7836941054m_-65486726269074473yahoo_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="yiv7836941054h5"> <div dir="ltr"><font size="2" face="Arial"> El Lunes 26 de junio de 2017 11:39, Mauricio Monsalvo <<a rel="nofollow" shape="rect" ymailto="mailto:m.monsalvo@gmail.com" target="_blank" href="mailto:m.monsalvo@gmail.com">m.monsalvo@gmail.com</a>> escribió:<br clear="none"></font></div>  <br clear="none"><br clear="none"> </div></div><div class="yiv7836941054m_-65486726269074473y_msg_container"><div id="yiv7836941054m_-65486726269074473yiv5430413442"><div><div><div class="yiv7836941054h5"><div dir="ltr"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:tahoma, sans-serif;">Muchas gracias a los dos por las respuestas. </div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:tahoma, sans-serif;">Estoy usando tidiverse, que debe ser la del conflicto. Pero probé reseteando el R y corriendo la sintaxis de Carlos sola y tampoco funciona...   </div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">library(tidyverse)</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Loading tidyverse: ggplot2</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Loading tidyverse: tibble</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Loading tidyverse: tidyr</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Loading tidyverse: readr</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Loading tidyverse: purrr</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Loading tidyverse: dplyr</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Conflicts with tidy packages ------------------------------ ------------------------------ --------------------------</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">filter(): dplyr, stats</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">lag():    dplyr, stats</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Warning messages:</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">1: package ‘tidyverse’ was built under R version 3.3.3 </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">2: package ‘tibble’ was built under R version 3.3.3 </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">3: package ‘tidyr’ was built under R version 3.3.3 </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">4: package ‘readr’ was built under R version 3.3.3 </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">5: package ‘purrr’ was built under R version 3.3.3 </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:tahoma, sans-serif;">Los datos de la sesión son los siguientes (Imagino que tengo que actualizar el propio R tambbién):</div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">> sessionInfo()</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">R version 3.3.2 (2016-10-31)</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Platform: x86_64-w64-mingw32/x64 (64-bit)</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">Running under: Windows >= 8 x64 (build 9200)</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">locale:</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">[1] LC_COLLATE=Spanish_Argentina. 1252  LC_CTYPE=Spanish_Argentina. 1252    LC_MONETARY=Spanish_ Argentina.1252</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">[4] LC_NUMERIC=C                       LC_TIME=Spanish_Argentina.1252    </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">attached base packages:</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">[1] stats     graphics  grDevices utils     datasets  methods   base     </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">other attached packages:</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"> [1] openxlsx_4.0.17   stringr_1.2.0     data.table_1.10.4 foreign_0.8-67    dplyr_0.5.0       purrr_0.2.2.2    </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"> [7] readr_1.1.1       tidyr_0.6.3       tibble_1.3.3      <font color="#ff0000"><b>ggplot2_2.2.1     </b></font>tidyverse_1.1.1  </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"><br clear="none"></font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">loaded via a namespace (and not attached):</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"> [1] Rcpp_0.12.11     cellranger_1.1.0 plyr_1.8.4       forcats_0.2.0    tools_3.3.2      jsonlite_1.5    </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace"> [7] lubridate_1.6.0  gtable_0.2.0     nlme_3.1-128     lattice_0.20-35  rlang_0.1.1      psych_1.7.5     </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">[13] DBI_0.6-1        parallel_3.3.2   haven_1.0.0      httr_1.2.1       xml2_1.1.1       hms_0.3         </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">[19] grid_3.3.2       R6_2.2.1         readxl_1.0.0     reshape2_1.4.2   modelr_0.1.0     magrittr_1.5    </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">[25] scales_0.4.1     assertthat_0.2.0 mnormt_1.5-5     rvest_0.3.2      colorspace_1.3-2 stringi_1.1.5   </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="monospace, monospace">[31] lazyeval_0.2.0   munsell_0.4.3    broom_0.4.2    </font></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:tahoma, sans-serif;"><br clear="none"></div></div></div></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_extra"><br clear="none"><div class="yiv7836941054m_-65486726269074473yiv5430413442yqt0394628885" id="yiv7836941054m_-65486726269074473yiv5430413442yqt14822"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_quote"><div><div class="yiv7836941054h5">El 25 de junio de 2017, 5:26, Carlos Ortega <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:cof@qualityexcellence.es" target="_blank" href="mailto:cof@qualityexcellence.es">cof@qualityexcellence.es</a>></span> escribió:<br clear="none"></div></div><blockquote class="yiv7836941054m_-65486726269074473yiv5430413442gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr"><div><div class="yiv7836941054h5"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;">Hola,</div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;"><br clear="none"></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_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="yiv7836941054m_-65486726269074473yiv5430413442gmail_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="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;"><br clear="none"></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;">#-----------</div></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><div><div class="yiv7836941054h5"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif"><br clear="none"></font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">Lines <- " id   Rangos   Clase Asistentes</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">1   45d     EPI        405</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">2    1a     EPI        812</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">3    2a     EPI       1639</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">4    3a     EPI       2202</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">5    4a     EPI       1994</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">6    5a     EPI        255</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">7   45d SemiEPI        614</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">8    1a SemiEPI        881</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">9    2a SemiEPI       2174</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">10   3a SemiEPI       3254</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">11   4a SemiEPI       2934</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">12   5a SemiEPI        662</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">13  45d   NoEPI        565</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">14   1a   NoEPI        316</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">15   2a   NoEPI        615</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">16   3a   NoEPI        956</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">17   4a   NoEPI        840</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">18   5a   NoEPI        609</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">"</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif"><br clear="none"></font></div></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">DF <- read.table(textConnection( Lines), header=T, <a rel="nofollow" shape="rect" target="_blank" href="http://as.is/">as.is</a> = TRUE)</font></div><div><div class="yiv7836941054h5"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">tabla.barras <- DF</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">tabla.barras$Clase2 <- factor(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif"><br clear="none"></font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">library(ggplot2)</font></div><span class="yiv7836941054m_-65486726269074473yiv5430413442"></span><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif"><br clear="none"></font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">subtit.todos <- "Todos los Espacios (N = 311)."</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">caption <- 'FLACSO - UNICEF - SENAF (2017)'</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes,  group = Clase2, fill = Clase2)) +  </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">  geom_col(position = "stack") +</font></div><span class="yiv7836941054m_-65486726269074473yiv5430413442"></span><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">  geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) + </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">  labs(title = "Asistentes por tipo de servicio según tramo de edad."</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">       , subtitle = subtit.todos</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">       , x = "", y = "Cantidad de asistentes" ) +</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">       # , caption = caption) +</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default"><font face="verdana, sans-serif">  theme(legend.position = "bottom", legend.direction = "horizontal", legend.title = element_blank()) +</font></div><span class="yiv7836941054m_-65486726269074473yiv5430413442"></span><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_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 clear="none"></div></div></div></div><div><div class="yiv7836941054h5"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;">#-----------</div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;"><br clear="none"></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;">Saludos,</div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;">Carlos Ortega</div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_default" style="font-family:verdana, sans-serif;"><a rel="nofollow" shape="rect" target="_blank" href="http://www.qualityexcellence.es/">www.qualityexcellence.es</a></div></div></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_extra"><div><div class="yiv7836941054h5"><div><div class="yiv7836941054m_-65486726269074473yiv5430413442h5"><br clear="none"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_quote">El 25 de junio de 2017, 10:19, jose luis via R-help-es <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:r-help-es@r-project.org" target="_blank" href="mailto:r-help-es@r-project.org">r-help-es@r-project.org</a>></span> escribió:<br clear="none"><blockquote class="yiv7836941054m_-65486726269074473yiv5430413442gmail_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 dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899"><img class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021ymail-preserve-class yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021inline-image-guid-a2c7d72b-4b12-4cfa-d445-4c532df2f283 yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021rte-inline-saved-image" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9134" src="cid:HzARyrQlR7CCHglFHH4v" alt="Imagen en el mensaje" style="width:100%;max-width:800px;max-height:633px;"><br clear="none"><br clear="none"></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899">Es curioso porque aplicando tu script me queda como tu quieres que te quede a ti no? </div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899">No he hecho nada que no hayas hecho tu</div><span></span><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899"><br clear="none"></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899"><br clear="none"></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9442"><font id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9524" size="2">ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) +  </font></div><span></span><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9443"><font id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9523" size="2">     geom_bar(stat = "identity", position = "stack") +</font></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9444"><font id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9522" size="2">     geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) + </font></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9446"><font size="2">          , subtitle = subtit.todos</font></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9447"><font size="2">          , x = "", y = "Cantidad de asistentes"</font></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_9448"><font size="2">          , caption = caption)</font></div><div dir="ltr" id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yui_3_16_0_ym19_1_1498377097131_6899"><br clear="none"></div> <div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021qtdSeparateBR"><br clear="none"><br clear="none"></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837h5"> <div dir="ltr"><font size="2" face="Arial"> El Sábado 24 de junio de 2017 23:07, Mauricio Monsalvo <<a rel="nofollow" shape="rect" ymailto="mailto:m.monsalvo@gmail.com" target="_blank" href="mailto:m.monsalvo@gmail.com">m.monsalvo@gmail.com</a>> escribió:<br clear="none"></font></div>  <br clear="none"><br clear="none"> </div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021y_msg_container"><div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837h5"><div id="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225"><div dir="ltr"><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;">​​</div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;">Hola. </div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><span style="font-family:tahoma, sans-serif;">Estos son mis datos:</span><br clear="none"></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">> tabla.barras</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">   Rangos   Clase Asistentes</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">1  De 45d     EPI        405</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">2   De 1a     EPI        812</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">3   De 2a     EPI       1639</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">4   De 3a     EPI       2202</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">5   De 4a     EPI       1994</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">6   De 5a     EPI        255</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">7  De 45d SemiEPI        614</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">8   De 1a SemiEPI        881</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">9   De 2a SemiEPI       2174</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">10  De 3a SemiEPI       3254</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">11  De 4a SemiEPI       2934</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">12  De 5a SemiEPI        662</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">13 De 45d   NoEPI        565</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">14  De 1a   NoEPI        316</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">15  De 2a   NoEPI        615</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">16  De 3a   NoEPI        956</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">17  De 4a   NoEPI        840</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">18  De 5a   NoEPI        609</font></div></div><div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">factor(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="tahoma, sans-serif">Ni:</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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 clear="none"></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">tabla.barras[order(Clase)] # ni -Clase</font></div><div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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 clear="none"></div></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     geom_bar(stat = "identity", position = "stack") +</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     geom_text(aes(label = Asistentes), position = position_stack(), vjust = 1, size = 4) + </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     labs(title = "Asistentes por tipo de servicio según tramo de edad."</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">          , subtitle = subtit.todos</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">          , x = "", y = "Cantidad de asistentes"</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">          , caption = caption) +</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     theme(legend.position = "bottom", legend.direction = "vertical", legend.title = element_blank()) +</font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default"><font face="monospace, monospace">     guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow = 1), size = 3) + </font></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_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:QK3onEHgrc6PA7L860us" alt="Imágenes integradas 1" width="461" height="307"><br clear="none"></div><div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail_default" style="font-family:tahoma, sans-serif;display:inline;">​</div>-- <br clear="none"></div><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837m_4863746216415793021yiv4536804225gmail-m_3174888530036560799gmail_signature"><div dir="ltr"><font face="tahoma, sans-serif">Mauricio</font></div></div>
</div></div></div></div>______________________________ _________________<br clear="none">R-help-es mailing list<br clear="none"><a rel="nofollow" shape="rect" ymailto="mailto:R-help-es@r-project.org" target="_blank" href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br clear="none"><a rel="nofollow" shape="rect" target="_blank" href="https://stat.ethz.ch/mailman/listinfo/r-help-es">https://stat.ethz.ch/mailman/l istinfo/r-help-es</a><br clear="none"><br clear="none"></div>  </div> </div>  </div></div></div><br clear="none">______________________________ _________________<br clear="none">
R-help-es mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-help-es@r-project.org" target="_blank" href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://stat.ethz.ch/mailman/listinfo/r-help-es">https://stat.ethz.ch/mailman/l istinfo/r-help-es</a><br clear="none"></blockquote></div><br clear="none"><br clear="all"><div><br clear="none"></div></div></div></div></div><span class="yiv7836941054"><span class="yiv7836941054m_-65486726269074473yiv5430413442HOEnZb"><font color="#888888">-- <br clear="none"></font></span></span><div class="yiv7836941054m_-65486726269074473yiv5430413442m_2084007249274656837gmail_signature"><span style="font-family:verdana, sans-serif;">Saludos,</span><br clear="none" style="font-family:verdana, sans-serif;">
<span style="font-family:verdana, sans-serif;">Carlos Ortega</span><br clear="none" style="font-family:verdana, sans-serif;">
<span style="font-family:verdana, sans-serif;"><a rel="nofollow" shape="rect" target="_blank" href="http://www.qualityexcellence.es/">www.qualityexcellence.es</a></span></div>
</div><span class="yiv7836941054HOEnZb"><font color="#888888">
</font></span></blockquote></div></div><span class="yiv7836941054HOEnZb"><font color="#888888"><br clear="none"><br clear="all"></font></span><div><br clear="none"></div>-- <br clear="none"><div class="yiv7836941054m_-65486726269074473yiv5430413442gmail_signature"><div dir="ltr"><font face="tahoma, sans-serif">Mauricio</font></div></div>
</div></div></div><span class="yiv7836941054"></span><div class="yiv7836941054m_-65486726269074473yqt0394628885" id="yiv7836941054m_-65486726269074473yqt81277">______________________________ _________________<br clear="none">R-help-es mailing list<br clear="none"><a rel="nofollow" shape="rect" ymailto="mailto:R-help-es@r-project.org" target="_blank" href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br clear="none"><a rel="nofollow" shape="rect" target="_blank" href="https://stat.ethz.ch/mailman/listinfo/r-help-es">https://stat.ethz.ch/mailman/ listinfo/r-help-es</a></div><br clear="none"><br clear="none"></div>  </div> </div>  </div></div></div></blockquote></div></div><br clear="none"><br clear="all"><div><br clear="none"></div>-- <br clear="none"><div class="yiv7836941054gmail_signature"><div dir="ltr"><font face="tahoma, sans-serif">Mauricio</font></div></div>
</div></div></div><br><br></div>  </div> </div>  </div></div></body></html>