R如何获得本月的第六个工作日

Question

我有一个营业日期向量：

require(bizdays)
cal <- create.calendar(name='MyCalendar', weekdays=c('sunday', 'saturday'))
startdate = as.Date(Sys.Date()) %m-% years(5) # today minus 5yrs
enddate = as.Date(Sys.Date())
dates = bizseq(startdate,enddate, cal)

现在我想从日期向量中提取每个月的第 6 个工作日，有什么想法吗？

谢谢，

杰勒

Answer 1

您实际上只是希望按月份和年份的组获取向量的每 6 个值。我们可以使用 base ave() 和 lubridate 来得到你想要的：

library(bizdays)
library(lubridate)

m_days <- ave(1:length(dates), month(dates), year(dates), FUN = seq_along)
result <- dates[m_days %% 6 == 0]
head(result)
#> [1] "2015-08-28" "2015-09-08" "2015-09-16" "2015-09-24" "2015-10-08"
#> [6] "2015-10-16"