R如何获得一个月的第六个工作日
R如何获得一个月的第六个工作日
提问于 2020-08-21 17:49:53
我有一个业务日期矢量：
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
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-08-21 19:40:18
您实际上只是希望按月和年获得向量的每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"页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/63520512
复制相关文章
相似问题
腾讯云开发者
