按工作日分组

Question

仅在工作日生成数据。

df['Day_of_Month'] = df.index.day
Date........................................                                   Day_of_Month
2014-11-26   1049.25     1054.75        26
2014-11-28   1041.00     1051.50        28
2014-12-01   1010.75     1022.50        1

可按日历日期分组，'Day_of_Month'，每月约30个

目标是按月的营业日分组，约22个/月

是否有df.index。 buiness_day_of_Month 类型的功能？

尝试导入BDay，特殊日历等，但没有成功。谢谢您的帮助。

Answer 1

可能有帮助

dat1$grp <- with(dat1, ave(seq_along(Date1), 
           format(Date1, '%m'), FUN=seq_along))
aggregate(Val~grp, dat1, FUN=sum)

数据

Date <- seq(as.Date('2014-11-01'), length.out=80, by='1 day')
library(timeDate)
Date1 <- Date[isBizday(as.timeDate(Date))]
Day_of_Month <-  as.numeric(format(Date1, '%d'))
set.seed(24)
dat1 <- data.frame(Date1, Day_of_Month, Val=rnorm(54))