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

Mauricio Monsalvo m.monsalvo en gmail.com
Lun Jun 26 13:51:18 CEST 2017 

Probé a sugerencia de José Luis con un group = Rangos en el aes() y
funcionó!
Cuando vuelva a estar en la misma compu, te comparto el data.frame para
chequear la estructura.
Muchas gracias!


El 26 de junio de 2017, 8:01, Carlos Ortega <cof en qualityexcellence.es>
escribió:

> Hola Mauricio,
>
> Debiera de funcionar, yo estoy usando la misma versión de ggplot que tú...
> Si puedes compartir el data.frame antes de llamar a ggplot por ver si
> tiene la misma estructura que lo que compartiste...
>
> Gracias,
> Carlos.
>
> El 26 de junio de 2017, 11:39, Mauricio Monsalvo <m.monsalvo en gmail.com>
> escribió:
>
>> Muchas gracias a los dos por las respuestas.
>> Estoy usando tidiverse, que debe ser la del conflicto. Pero probé
>> reseteando el R y corriendo la sintaxis de Carlos sola y tampoco
>> funciona...
>> library(tidyverse)
>> Loading tidyverse: ggplot2
>> Loading tidyverse: tibble
>> Loading tidyverse: tidyr
>> Loading tidyverse: readr
>> Loading tidyverse: purrr
>> Loading tidyverse: dplyr
>> Conflicts with tidy packages ------------------------------
>> --------------------------------------------------------
>> filter(): dplyr, stats
>> lag():    dplyr, stats
>> Warning messages:
>> 1: package ‘tidyverse’ was built under R version 3.3.3
>> 2: package ‘tibble’ was built under R version 3.3.3
>> 3: package ‘tidyr’ was built under R version 3.3.3
>> 4: package ‘readr’ was built under R version 3.3.3
>> 5: package ‘purrr’ was built under R version 3.3.3
>> Los datos de la sesión son los siguientes (Imagino que tengo que
>> actualizar el propio R tambbién):
>> > sessionInfo()
>> R version 3.3.2 (2016-10-31)
>> Platform: x86_64-w64-mingw32/x64 (64-bit)
>> Running under: Windows >= 8 x64 (build 9200)
>>
>> locale:
>> [1] LC_COLLATE=Spanish_Argentina.1252  LC_CTYPE=Spanish_Argentina.1252
>>  LC_MONETARY=Spanish_Argentina.1252
>> [4] LC_NUMERIC=C                       LC_TIME=Spanish_Argentina.1252
>>
>> attached base packages:
>> [1] stats     graphics  grDevices utils     datasets  methods   base
>>
>> other attached packages:
>>  [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
>>  [7] readr_1.1.1       tidyr_0.6.3       tibble_1.3.3      *ggplot2_2.2.1
>>     *tidyverse_1.1.1
>>
>> loaded via a namespace (and not attached):
>>  [1] Rcpp_0.12.11     cellranger_1.1.0 plyr_1.8.4       forcats_0.2.0
>>  tools_3.3.2      jsonlite_1.5
>>  [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
>> [13] DBI_0.6-1        parallel_3.3.2   haven_1.0.0      httr_1.2.1
>> xml2_1.1.1       hms_0.3
>> [19] grid_3.3.2       R6_2.2.1         readxl_1.0.0     reshape2_1.4.2
>> modelr_0.1.0     magrittr_1.5
>> [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
>> [31] lazyeval_0.2.0   munsell_0.4.3    broom_0.4.2
>>
>>
>> El 25 de junio de 2017, 5:26, Carlos Ortega <cof en qualityexcellence.es>
>> escribió:
>>
>>> Hola,
>>>
>>> Mira la versión de ggplot2 que estás usando por tenerla actualizada a la
>>> última...
>>> A mi me funciona introduciendo algún cambio  salvo la última línea
>>> cuando cambias el tema...
>>>
>>> #-----------
>>>
>>> Lines <- " id   Rangos   Clase Asistentes
>>> 1   45d     EPI        405
>>> 2    1a     EPI        812
>>> 3    2a     EPI       1639
>>> 4    3a     EPI       2202
>>> 5    4a     EPI       1994
>>> 6    5a     EPI        255
>>> 7   45d SemiEPI        614
>>> 8    1a SemiEPI        881
>>> 9    2a SemiEPI       2174
>>> 10   3a SemiEPI       3254
>>> 11   4a SemiEPI       2934
>>> 12   5a SemiEPI        662
>>> 13  45d   NoEPI        565
>>> 14   1a   NoEPI        316
>>> 15   2a   NoEPI        615
>>> 16   3a   NoEPI        956
>>> 17   4a   NoEPI        840
>>> 18   5a   NoEPI        609
>>> "
>>>
>>> DF <- read.table(textConnection(Lines), header=T, as.is = TRUE)
>>> tabla.barras <- DF
>>> tabla.barras$Clase2 <- factor(tabla.barras$Clase, levels=c("EPI",
>>> "SemiEPI", "NoEPI"))
>>>
>>> library(ggplot2)
>>>
>>> subtit.todos <- "Todos los Espacios (N = 311)."
>>> caption <- 'FLACSO - UNICEF - SENAF (2017)'
>>> ggplot(tabla.barras, aes(x = Rangos, y = Asistentes,  group = Clase2,
>>> fill = Clase2)) +
>>>   geom_col(position = "stack") +
>>>   geom_text(aes(label = Asistentes), position = position_stack(), vjust
>>> = 1, size = 4) +
>>>   labs(title = "Asistentes por tipo de servicio según tramo de edad."
>>>        , subtitle = subtit.todos
>>>        , x = "", y = "Cantidad de asistentes" ) +
>>>        # , caption = caption) +
>>>   theme(legend.position = "bottom", legend.direction = "horizontal",
>>> legend.title = element_blank()) +
>>>   guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow = 1),
>>> size = 3)
>>>
>>> #-----------
>>>
>>> Saludos,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>>
>>> El 25 de junio de 2017, 10:19, jose luis via R-help-es <
>>> r-help-es en r-project.org> escribió:
>>>
>>>> [image: Imagen en el mensaje]
>>>>
>>>> Es curioso porque aplicando tu script me queda como tu quieres que te
>>>> quede a ti no?
>>>> No he hecho nada que no hayas hecho tu
>>>>
>>>>
>>>> ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) +
>>>>      geom_bar(stat = "identity", position = "stack") +
>>>>      geom_text(aes(label = Asistentes), position = position_stack(),
>>>> vjust = 1, size = 4) +
>>>>      labs(title = "Asistentes por tipo de servicio según tramo de edad."
>>>>           , subtitle = subtit.todos
>>>>           , x = "", y = "Cantidad de asistentes"
>>>>           , caption = caption)
>>>>
>>>>
>>>>
>>>> El Sábado 24 de junio de 2017 23:07, Mauricio Monsalvo <
>>>> m.monsalvo en gmail.com> escribió:
>>>>
>>>>
>>>> ​​
>>>> Hola.
>>>> Estoy intentando ordenar el gráfico tal que las columnas se apilen en
>>>> el siguiente orden: debajo, los EPI; los SemiEPI en el medio y los NoEpi
>>>> arriba de todo.
>>>> Estos son mis datos:
>>>> > tabla.barras
>>>>    Rangos   Clase Asistentes
>>>> 1  De 45d     EPI        405
>>>> 2   De 1a     EPI        812
>>>> 3   De 2a     EPI       1639
>>>> 4   De 3a     EPI       2202
>>>> 5   De 4a     EPI       1994
>>>> 6   De 5a     EPI        255
>>>> 7  De 45d SemiEPI        614
>>>> 8   De 1a SemiEPI        881
>>>> 9   De 2a SemiEPI       2174
>>>> 10  De 3a SemiEPI       3254
>>>> 11  De 4a SemiEPI       2934
>>>> 12  De 5a SemiEPI        662
>>>> 13 De 45d   NoEPI        565
>>>> 14  De 1a   NoEPI        316
>>>> 15  De 2a   NoEPI        615
>>>> 16  De 3a   NoEPI        956
>>>> 17  De 4a   NoEPI        840
>>>> 18  De 5a   NoEPI        609
>>>> ​Probé cambiando el orden en el factor, pero no altera el orden en el
>>>> gráfico:​
>>>> ​tabla.barras$Clase <- as.factor(tabla.barras$Clase)
>>>> factor(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))
>>>> Ni:
>>>> ordered(tabla.barras$Clase, levels=c("EPI", "SemiEPI", "NoEPI"))
>>>> Tampoco parece alterarlo el ordenar la tabla como:
>>>> tabla.barras[order(Clase)] # ni -Clase
>>>> Estoy seguro que el orden en el ggplot2 lo pone el orden que trae la
>>>> tabla con los datos, pero estoy perdido por los resultados.
>>>> subtit.todos <- "Todos los Espacios (N = 311)."
>>>> caption <- 'FLACSO - UNICEF - SENAF (2017)'
>>>> ggplot(tabla.barras, aes(x = Rangos, y = Asistentes, fill = Clase)) + #
>>>>      geom_bar(stat = "identity", position = "stack") +
>>>>      geom_text(aes(label = Asistentes), position = position_stack(),
>>>> vjust = 1, size = 4) +
>>>>      labs(title = "Asistentes por tipo de servicio según tramo de edad."
>>>>           , subtitle = subtit.todos
>>>>           , x = "", y = "Cantidad de asistentes"
>>>>           , caption = caption) +
>>>>      theme(legend.position = "bottom", legend.direction = "vertical",
>>>> legend.title = element_blank()) +
>>>>      guides(fill = guide_legend(nrow = 1), color = guide_legend(nrow =
>>>> 1), size = 3) +
>>>>      theme(plot.caption = element_text(size = 8, hjust = 0, margin =
>>>> margin(t = 15)))​
>>>> [image: Imágenes integradas 1]
>>>> ​
>>>> --
>>>> Mauricio
>>>> _______________________________________________
>>>> R-help-es mailing list
>>>> R-help-es en r-project.org
>>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>>
>>>>
>>>> _______________________________________________
>>>> R-help-es mailing list
>>>> R-help-es en r-project.org
>>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>>
>>>
>>>
>>>
>>> --
>>> Saludos,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>>
>>
>>
>>
>> --
>> Mauricio
>>
>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>



-- 
Mauricio
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170626/a22cb711/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 66321 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170626/a22cb711/attachment-0002.png>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 67964 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170626/a22cb711/attachment-0003.png>

Más información sobre la lista de distribución R-help-es