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

编程问答 2022-08-15

问题描述

我有营业日向量：

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个工作日，有什么想法怎么做？

谢谢

Jelle

解决方法

您实际上只是想按月和年的组来获取向量的每6个值。我们可以将基数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"
datedplyrlubridaterr