R - 一个月中某一周的工作日

Question

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

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

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 中获取任何一个月的任何一周的一周的工作日。

提前致谢

Answer 1

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)][]