Разница между двумя датами, исключая выходные и заданный список праздников в R

Question

Я хочу рассчитать количество дней между двумя датами, исключая выходные и заданный список праздников

a <- c('2016/05/2')
b <- c('2016/05/11')
a <- as.Date(a,'%Y/%m/%d')
b <- as.Date(b,'%Y/%m/%d')

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

Так я могу рассчитать количество дней без выходных. Тем не менее, предположим, что я хочу исключить список данных праздников, который находится на "2016/05/3" и "2016/05/4", а затем рассчитать количество дней между упомянутыми двумя датами (исключая выходные). Я не могу написать этот код. Пожалуйста, помогите мне. Заранее спасибо.

Answer 1

Как насчет

f <- function(a, b, h) { 
  d <- seq(a, b, 1)[-1]   
  sum(!format(d, "%u") %in% c("6", "7") & !d %in% h)
}
f(a, b, as.Date(c("2016/05/3", "2016/05/4"),'%Y/%m/%d'))

или с фреймом данных:

vf <- Vectorize(f, c("a", "b"))
df <- data.frame(a=rep(a, 2), b=rep(b, 2))
df$diff <- with(df, vf(a, b, as.Date(c("2016/05/3", "2016/05/4"),'%Y/%m/%d')) )

Answer 2

Вы можете сделать это следующим образом,

holidays <- as.Date(c('2016/05/3' , '2016/05/4' ))
date_range <- seq.Date(a, b, 1)

date_range[!weekdays(date_range) %in% (c("Saturday", "Sunday")) & !date_range %in% holidays]

#[1] "2016-05-02" "2016-05-05" "2016-05-06" "2016-05-09" "2016-05-10" "2016-05-11"