我需要知道给定月份的第一个工作日,R 中是否有包含相关函数的包?
最佳答案
timeDate 包有一个函数 isBizday
可以帮助你。将有更优雅的方法将 dateTime
对象转换为其他格式,但这至少应该让您入门。
library(timeDate)
## Example data
dates <- as.Date("2013-01-01") + 0:364
Dates <- as.timeDate(dates)
## Extract the first business day of each month
bizDates <- dates[isBizday(Dates, holidays=holidayLONDON())]
firsts <- tapply(bizDates, months(bizDates), min)
sapply(firsts, function(X) as.character(as.Date(X)))
# 1 2 3 4 5 6
# "2013-01-02" "2013-02-01" "2013-03-01" "2013-04-01" "2013-05-01" "2013-06-03"
# 7 8 9 10 11 12
# "2013-07-01" "2013-08-01" "2013-09-03" "2013-10-01" "2013-11-01" "2013-12-02"
关于r - 访问一个月的第一个工作日,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15478341/