<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>