R如何获得本月的第六个工作日
R how to get sixth workday of the month
我有一个营业日期向量:
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 个工作日,知道怎么做吗?
谢谢,
耶勒
您实际上只是希望按月份和年份获取向量的每第 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"
我有一个营业日期向量:
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 个工作日,知道怎么做吗?
谢谢,
耶勒
您实际上只是希望按月份和年份获取向量的每第 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"