如何解决R如何获得每月的第六个工作日
我有营业日向量：
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"
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
