我正在尝试编写R函数来计算两个日期之间的工作日数。例如,Nweekdays('01 / 30/2011','02/04/2011')等于5。
类似于this question。谢谢!
/ edit:@J。温彻斯特的答案很好,但我想知道是否有人可以想到一种矢量化方法,以便它可用于2列日期。谢谢!
/ edit 2:再次感谢!
最佳答案
Date1 <- as.Date("2011-01-30")
Date2 <- as.Date("2011-02-04")
sum(!weekdays(seq(Date1, Date2, "days")) %in% c("Saturday", "Sunday"))
编辑:和扎克说,让有
Vectorize
:)Dates1 <- as.Date("2011-01-30") + rep(0, 10)
Dates2 <- as.Date("2011-02-04") + seq(0, 9)
Nweekdays <- Vectorize(function(a, b)
sum(!weekdays(seq(a, b, "days")) %in% c("Saturday", "Sunday")))
Nweekdays(Dates1, Dates2)
关于datetime - 计算R中2个日期之间的工作日数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5046708/