Guión (week 07)

Sí, ya es la semana nº 7: perdimos una semana xq el profe es un blandenge y hubo 2 días que la tecnología nos/me jugo una mala pasada y nos retraso también un poco, PERO, no vamos peor que el año pasado, vamos mejor!!

0. Corrección `entrega_04c`

1. Chapas/reflexiónes

Esta mal que lo diga el profesor, pero … no hay que saberlo/entenderlo todo: es IMPOSIBLE!!!.

If you think you can learn all of R, you are wrong. For the foreseeable future you will not even be able to keep up with the new additions. – Patrick Burns (Inferno-ish R) CambR User Group Meeting, Cambridge (May 2012)

Así que … tenemos que fijarnos en lo que sabemos, no en lo que no sabemos

Planificación temporal:
- gráficos con ggplot2
- Escribiendo con Quarto
- Mapas
- Tablas
- EDA y modelos

Espero que no, pero por si alguien copia: https://twitter.com/microbiomdigest/status/1192959119130415104?lang=es

2. Un poco de “boost”

Vi este tweet sobre inflación en alimentos y este sobre greed-flation. Veámos si podemos “corroborarlo” con los ejemplos:
- ej_009a_plot-temporal-inflacion.R

BuzzFeedNews es un periódico que ofrece artículos/historias basadas en datos; por ejemplo, un ejemplo de gráfico chulo. Luego replicaremos el gráfico. El artículo está aquí. El código está aquí.

Puedes encontrar más artículos de BuzzFeedNews aquí. El repo con el código está aquí.

1. ggplot à full

Vamos a las slides de ggplot2, pero antes de empezar ¿Qué hace estos 2 chunks?

df <- pjpv.curso.R.2022::ine_pob_mun_1996_2021 %>% 
  filter(year == 2021) %>% 
  distinct(ine_muni, ine_muni.n, ine_prov, ine_prov.n) %>% 
  group_by(ine_prov, ine_prov.n) %>%   
  summarise(NN = n()) %>%   
  slice_max(n, n = 6)

ggplot(data = df, 
       mapping = aes(x = n, y = ine_prov.n)) +
   geom_col() +
   labs(title = "Provincias con más municipios (2021)",
        x = "nº de municipios")

Slides-06(A): ggplot2 (primeras ideas)

Slides-06(B): ggplot2 (más elementos)

2. Posibles ejemplos

ej_113_plot_school-shooting.R
ej_086_Simpson-paradox.R

zz. pkg’s a instalar

pkgs_a_instalar <- c("reactable", "reactablefmtr", "janitor", "remotes", "paletteer", "ggThemeAssist", "esquisse", "patchwork", "magick", "ggpubr", "mattcowgill/ggannotate", "ggtext", "showtext", "glue", "countrycode", "WDI", "perezp44/pjpv.datos.01")
pak::pak(pkgs_a_instalar)