按每月工作日分组

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

可按日历月日分组，每月约30天

目标是按每月的工作日分组，大约22/月

有吗测向指数.buiness\u day\u of \u 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))