library(tidyverse)

feriados_tabla <- tibble::tribble(
  ~fecha,       ~nombre,    
  "1 de enero", "Año Nuevo",
  "6 de enero", "Día de los Niños",
  "19 de abril", "Desembarco de los Treinta y Tres Orientales",
  "1 de mayo",    "Día de los Trabajadores",
  "18 de mayo",  "Batalla de Las Piedras",
  "19 de junio", "Natalicio de Artigas",
  "18 de julio", "Jura de la Constitución",
  "25 de agosto","Declaratoria de la Independencia", 
  "12 de octubre", "Día de la Raza",
  "2 de noviembre", "Día de los Difuntos",
  "25 de diciembre", "Día de la Familia") %>% 
  # Sacamos " de" para que no moleste a lubridate
  mutate(fecha = str_replace(fecha, " de", ""))

Parsear fechas (en español).

En Uruguay hay 11 feriados. Para convertirlas en fechas, usamos expand_grid para combinar las fechas con todos los años entre 2015 y 2030, y para parsear el texto de la fecha usamos readr::parse_date. La función wday nos da el día de la semana en que cae determinada fecha.

Para que parse_date entienda bien el texto de los meses (enero, febrero, etc.) especifico el argumento locale=locale("es"). Para que wday nos de el día de la semana de cada fecha, hay que setear la locale del sistema con Sys.setlocale.

library(lubridate)

Sys.setlocale("LC_TIME", "Spanish_Spain.1252")

## [1] "Spanish_Spain.1252"

feriados <- expand_grid(t=2017:2032, fecha=feriados_tabla$fecha) %>% 
  left_join(feriados_tabla, by="fecha") %>% 
  mutate(fecha = paste(fecha, t)) %>% 
  mutate(fecha=parse_date(fecha, "%d %B %Y", locale=locale("es"))) %>% 
  mutate(wdia=wday(fecha, label=TRUE, abbr=FALSE)) %>% 
  mutate(wdia = stringr::str_to_title(wdia))

Visualización

Ahora una visualización bien simple para ver que nos deparan los próximos años:

feriados %>% 
  mutate(fin_de_semana = wdia %in% c("Sábado", "Domingo")) %>% 
  count(t, fin_de_semana) %>% 
  ggplot(aes(t, n, fill=fin_de_semana)) + 
  geom_col() + 
  scale_x_continuous(breaks=2017:2032) + 
  theme(legend.position = "bottom")

Parecería que después de dos años medios 2021 y 2022, en 2023 vamos a tener muy pocos feriados que caen fin de semana y 2024 va a ser nefasto. Quiero saber dos cosas: ¿cuáles son los feriados que caen juntos?

¿Cómo juegan los años bisiestos?

Los feriados van cambiando de a un día en los años normales y de a dos los años bisiestos:

feriados %>% 
  filter(nombre=="Año Nuevo")

## # A tibble: 16 x 4
##        t fecha      nombre    wdia     
##    <int> <date>     <chr>     <chr>    
##  1  2017 2017-01-01 Año Nuevo Domingo  
##  2  2018 2018-01-01 Año Nuevo Lunes    
##  3  2019 2019-01-01 Año Nuevo Martes   
##  4  2020 2020-01-01 Año Nuevo Miércoles
##  5  2021 2021-01-01 Año Nuevo Viernes  
##  6  2022 2022-01-01 Año Nuevo Sábado   
##  7  2023 2023-01-01 Año Nuevo Domingo  
##  8  2024 2024-01-01 Año Nuevo Lunes    
##  9  2025 2025-01-01 Año Nuevo Miércoles
## 10  2026 2026-01-01 Año Nuevo Jueves   
## 11  2027 2027-01-01 Año Nuevo Viernes  
## 12  2028 2028-01-01 Año Nuevo Sábado   
## 13  2029 2029-01-01 Año Nuevo Lunes    
## 14  2030 2030-01-01 Año Nuevo Martes   
## 15  2031 2031-01-01 Año Nuevo Miércoles
## 16  2032 2032-01-01 Año Nuevo Jueves

El primero de Enero cayó Viernes en 2016, y cómo 2016 fue bisiesto, en 2017 cayó domingo. En 2018 cayó Lunes, 2019 Martes, etc. El día de los Trabajadores es después del 29 de Febrero, por lo que los años bisiestos lo afectan diferente.

feriados %>% 
  filter(nombre=="Día de los Trabajadores")

## # A tibble: 16 x 4
##        t fecha      nombre                  wdia     
##    <int> <date>     <chr>                   <chr>    
##  1  2017 2017-05-01 Día de los Trabajadores Lunes    
##  2  2018 2018-05-01 Día de los Trabajadores Martes   
##  3  2019 2019-05-01 Día de los Trabajadores Miércoles
##  4  2020 2020-05-01 Día de los Trabajadores Viernes  
##  5  2021 2021-05-01 Día de los Trabajadores Sábado   
##  6  2022 2022-05-01 Día de los Trabajadores Domingo  
##  7  2023 2023-05-01 Día de los Trabajadores Lunes    
##  8  2024 2024-05-01 Día de los Trabajadores Miércoles
##  9  2025 2025-05-01 Día de los Trabajadores Jueves   
## 10  2026 2026-05-01 Día de los Trabajadores Viernes  
## 11  2027 2027-05-01 Día de los Trabajadores Sábado   
## 12  2028 2028-05-01 Día de los Trabajadores Lunes    
## 13  2029 2029-05-01 Día de los Trabajadores Martes   
## 14  2030 2030-05-01 Día de los Trabajadores Miércoles
## 15  2031 2031-05-01 Día de los Trabajadores Jueves   
## 16  2032 2032-05-01 Día de los Trabajadores Sábado

Esto implica que los años bisiestos cambian la distribución de feriados por día, y esta queda estable y se mueve hacia la derecha cada año hasta el próximo año bisiesto:

dias <- c("Domingo", "Lunes", "Martes",
          "Miércoles", "Jueves", "Viernes",
          "Sábado")

feriados %>% 
  mutate(wdia=str_sub(wdia, 1, 3)) %>% 
  count(t, wdia) %>% 
  mutate(wdia=factor(wdia, levels=str_sub(dias, 1, 3))) %>% 
  ggplot(aes(wdia, n)) +
  geom_col() +
  facet_wrap(~t, ncol = 4) + 
  guides(fill="none")