計算工作日

Question

我正計算兩天之間的工作日。成功地，我從這個問題（Calculate the number of weekdays between 2 dates in R）計算了沒有Saturday和Sunday的日子，現在我正試圖將這些代碼實施爲國定假日。我怎樣才能在這裏添加國家假期？

我用這個代碼來計算weekdays。

Nweekdays <- function(a, b) { 
    sum(!weekdays(seq(a, b, "days")) %in% c("Saturday", "Sunday"))} 

Answer 1

更新你的函數了一點，所以假期可以添加...

Nweekdays <- function(a, b, holidays, weekend) { 
    possible_days <- seq(a, b, "days") 
    # Count all days that are not weekend and 
    # are not holidays 
    sum(!weekdays(possible_days) %in% weekend & !possible_days %in% holidays) 
} 

weekend <- c("Saturday", "Sunday") 
holidays <- as.Date(c("2017-12-31", "2017-12-24", "2017-07-04")) 
Nweekdays(as.Date("2017-08-01"), as.Date("2017-12-31"), holidays, weekend) 
[1] 109 

雖然公曆是非常全球性的，週末和節假日的定義是依賴於國家，地區等。