Contar días hábiles entre dos fechas en R

library(dplyr) # manipulación de datos
library(lubridate) # trabajar con fechas
library(RQuantLib) # paquete con calendarios
library(bizdays) # paquete para contar días hábiles

Hoy se me planteó un pequeño desafío que no había tenido que hacer antes. Tenía que contar la cantidad de días entre dos fechas.

Esto no es particularmente complejo, de hecho es demasiado fácil:

Contar la cantidad de días entre dos fechas

Primero definimos las dos fechas:

fecha_hoy <- today()
fecha_anterior <- today() - weeks(2)

fecha_hoy

[1] "2024-11-14"

fecha_anterior

[1] "2024-10-31"

Y luego usamos una sencilla función para buscar la diferencia entre ambas fechas:

difftime(fecha_hoy, fecha_anterior)

Time difference of 14 days

Entre el 13 de noviembre y el 30 de octubre de 2024 hay 14 días. Incluso, lo anterior podría ser aún más simple:

fecha_hoy - fecha_anterior

Time difference of 14 days

En R, tan sencillo como restar dos fechas para obtener la diferencia de tiempo entre ambas.

Contar la cantidad de días hábiles entre dos fechas

Pero el problema no era que tenía que contar entre dos fechas, sino que tenía que contar sólo los días hábiles entre ambas.

Esto se vuelve más complejo. Primero, porque habría que definir una forma de saltarse los fines de semana. Pero también, los días hábiles son aquellos que no son festivos, y esto implica tener una lista de todos los días festivos o feriados. Pero además, ¡los días festivos son locales! Dependen de cada país y son distintos en cada uno, e incluso cambian en el tiempo: se crean nuevos, desaparecen otros, y algunos cambian de fecha entre año y año.

Menos mal que en R existe un paquete para todo 😌 El paquete {RQuantLib} contiene la información de calendarios de muchísimos países del mundo. A su vez, el paquete {bizdays} te permite tomar esa información de los calendarios y usarlos para el cálculo de días hábiles entre fechas:

bizdays::load_quantlib_calendars(
  "Chile", 
  from = "2023-01-01",
  to = "2025-12-31")

Calendar QuantLib/Chile loaded

calendars() # confirmar que el calendario está cargado

Calendars: 
actual, Brazil/ANBIMA, Brazil/B3, Brazil/BMF, QuantLib/Chile, weekends

Ahora que tenemos un calendario de los días feriados en Chile cargado en R, usamos la función bizdays() del paquete del mismo nombre para calcular la cantidad de días hábiles entre ambas fechas, especificando el calendario que queremos usar:

bizdays(fecha_hoy, fecha_anterior, 
        "QuantLib/Chile")

[1] -8

En este caso, el resultado es 8, porque a los 14 días que habían entre ambas fechas le resta dos fines de semana (4 días), y además le resta dos días feriados oficiales en Chile (día de las Iglesias Evangélicas el 31 de octubre y el Día de todos los santos el 1 de noviembre).

Repitamos el mismo ejemplo, pero ahora en una pequeña tabla de datos ficticios:

datos <- tibble::tribble(
  ~n,        ~fecha,       ~fecha_hoy,
  "16831",   "2024-02-19", "2024-11-13",
  "40003",   "2024-01-12", "2024-11-13",
  "90667",   "2024-04-06", "2024-11-13",
  "80205",   "2024-10-07", "2024-11-13",
  "14457",   "2024-08-30", "2024-11-13"
)

En este ejemplo, primero calculamos la diferencia normal entre días, arreglamos el resultado de la diferencia de tiempo para formar los números comunes, y luego calculamos la diferencia entre días hábiles, para poder comparar:

datos |> 
  mutate(dias_comunes = difftime(fecha, fecha_hoy), 
         dias_comunes = dias_comunes |> as.numeric() |> abs() |> round(0),
         dias_habiles = bizdays(fecha, fecha_hoy, "QuantLib/Chile")
  )

# A tibble: 5 × 5
  n     fecha      fecha_hoy  dias_comunes dias_habiles
  <chr> <chr>      <chr>             <dbl>        <dbl>
1 16831 2024-02-19 2024-11-13          268          181
2 40003 2024-01-12 2024-11-13          306          207
3 90667 2024-04-06 2024-11-13          221          147
4 80205 2024-10-07 2024-11-13           37           25
5 14457 2024-08-30 2024-11-13           75           48

Contar la cantidad de días de semana entre dos fechas

Naturalmente, existe otra forma de hacer esto, mucho más básica. Consiste en crear una secuencia con todas las fechas que hay entre las dos fechas, e ir evaluando si cada una de esas fechas cae el día de semana o en fin de semana.

Primero creamos la secuencia de fechas:

secuencia <- seq.Date(fecha_anterior, fecha_hoy, by = "days")
secuencia

 [1] "2024-10-31" "2024-11-01" "2024-11-02" "2024-11-03" "2024-11-04"
 [6] "2024-11-05" "2024-11-06" "2024-11-07" "2024-11-08" "2024-11-09"
[11] "2024-11-10" "2024-11-11" "2024-11-12" "2024-11-13" "2024-11-14"

Luego utilizamos la función wday() para saber en qué día de la semana cae cada una de las fechas, indicando que queremos que el día lunes sea equivalente a 1, por lo que el fin de semana correspondería a los números 6 y 7:

secuencia_dias <- lubridate::wday(secuencia, week_start = 1)
secuencia_dias

 [1] 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4

En esta secuencia, cada número corresponde a una de las fechas del vector anterior, y el número representa el día de la semana: el número 4 es jueves, el número 5 es viernes, el número 6 es sábado, y así sucesivamente.

Finalmente, sólo queda evaluar cuales de las fechas son días a menores o iguales a 5 (es decir, días de semana y no sábado ni domingo)

secuencia_dias <= 5

 [1]  TRUE  TRUE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE
[13]  TRUE  TRUE  TRUE

La comparación retorna verdadero cuando el número es menor igual a cinco, y falso cuando es mayor o igual. O sea, verdadero cuando es día de semana, y falso cuándo es fin de semana.

Luego contamos la cantidad de días que coinciden con la condición dada, y listo.

sum(secuencia_dias <= 5)

[1] 11

Obtenemos que entre el 13 de noviembre y el 30 de octubre de 2024 hay 11 días de semana (es decir, días entre lunes y viernes).