R-每月给定一周的工作日

如何解决R-每月给定一周的工作日

我正在尝试获取给定月份中给定一周的工作日。

这是我当前的数据，例如：

year  month week
2020   6      1
2020   6      2
2020   6      3
2020   6      4
2020   6      5
2020   7      1
2020   7      2
2020   7      3
2020   7      4
2020   7      5

预期结果：

year  month week  work_days
2020   6      1      5
2020   6      2      5
2020   6      3      5
2020   6      4      5
2020   6      5      2
2020   7      1      3
2020   7      2      5
2020   7      3      5
2020   7      4      5
2020   7      5      5

因此，您可以看到我有月份的年，月和周，但是我想不起来如何获得R的任何一周的工作日。

预先感谢

解决方法

cal <- data.table(dates = seq.Date(ymd(20200601),ymd(20200731),by = "day")) %>% 
        .[,.(dates,year = year(dates),month = month(dates),week = isoweek(dates),# new week starts on monday 
              weekday = !(weekdays(dates) %in% c("Sunday","Saturday"))
         )] 

cal[,.(work_days = sum(weekday)),by = .(year,month,week)
    ][,week := rowid(month)][]