Comment calculer les jours ouvrables dans R (avec des exemples)

Vous pouvez utiliser les fonctions du package bizdays dans R pour ajouter, soustraire et compter rapidement le nombre de jours ouvrables entre deux dates dans R.

Les exemples suivants montrent comment utiliser ces fonctions dans la pratique.

Exemple 1 : Compter le nombre de jours ouvrables entre deux dates dans R

Pour compter le nombre de jours ouvrés entre deux dates dans R, vous devez d’abord utiliser la fonction create.calendar() du package bizdays pour créer un calendrier contenant une liste de jours ouvrés :

library(bizdays)

#create business calendar
business_calendar <- create.calendar('my_calendar', weekdays = c('saturday','sunday'))

Notez que l’argument weekdays spécifie quels jours de la semaine ne sont pas des jours ouvrables.

On peut alors utiliser la fonction bizdays() pour compter le nombre de jours ouvrés entre deux dates précises :

library(bizdays)

#calculate number of business days between two dates
bizdays(from = '2022-01-01', to = '2022-12-31', cal = business_calendar)

[1] 259

D’après le résultat, nous pouvons voir qu’il y a 259 jours ouvrables entre le 01/01/2022 et le 31/12/2022.

Exemple 2 : ajouter et soustraire des jours ouvrables à la date dans R

Supposons que nous disposions du bloc de données suivant dans R qui contient des informations sur les ventes totales réalisées dans un magasin à différentes dates :

#make this example reproducible
set.seed(1)

#create data frame
df <- data.frame(date = as.Date('2022-01-01') + 0:249,
                 sales = runif(n=250, min=1, max=30))

#view head of data frame
head(df)

        date     sales
1 2022-01-01  8.699751
2 2022-01-02 11.791593
3 2022-01-03 17.612748
4 2022-01-04 27.338026
5 2022-01-05  6.848776
6 2022-01-06 27.053301

Nous pouvons utiliser la fonction offset() du package bizdays pour ajouter 10 jours ouvrables à chaque date :

library(bizdays) 

#create business calendar
business_calendar <- create.calendar('my_calendar', weekdays = c('saturday','sunday'))

#add 10 business days to each date
df$date <- bizdays::offset(df$date, 10, cal = business_calendar)

#view updated head of data frame
head(df)

        date     sales
1 2022-01-14  8.699751
2 2022-01-14 11.791593
3 2022-01-17 17.612748
4 2022-01-18 27.338026
5 2022-01-19  6.848776
6 2022-01-20 27.053301

Notez que 10 jours ouvrables ont été ajoutés à chaque date.

Pour soustraire des jours ouvrables, utilisez simplement un nombre négatif dans la fonction offset() .

Par exemple, le code suivant montre comment soustraire 10 jours ouvrables à chaque date :

library(bizdays) 

#create business calendar
business_calendar <- create.calendar('my_calendar', weekdays = c('saturday','sunday'))

#subtract 10 business days to each date
df$date <- bizdays::offset(df$date, -10, cal = business_calendar)

#view updated head of data frame
head(df)

        date     sales
1 2021-12-20  8.699751
2 2021-12-20 11.791593
3 2021-12-20 17.612748
4 2021-12-21 27.338026
5 2021-12-22  6.848776
6 2021-12-23 27.053301

Notez que 10 jours ouvrables ont été soustraits à chaque date.

Remarque : Vous pouvez trouver la documentation complète du package bizdays ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans R :

Comment convertir une date en numérique dans R
Comment extraire le mois de la date dans R
Comment ajouter et soustraire des mois à une date dans R