R 如何获取2018年第5周的天数（2月份）

我正在做一项任务，我需要得到一个月内某一周的天数。 2018年第5周前-1月有3天，2月有4天。 如何分别获得月份1月、2月和天数3、4日

使用as.Date和table的方法：

润滑选项

library(lubridate)
start_date <- "2018-01-01"
week_number <- 5

table(months(date(start_date) + weeks(week_number) - 1:7))

#February  January 
#       4        3 

week_number <- 9
table(months(date(start_date) + weeks(week_number) - 1:7))

#February    March 
#       3        4 

library(lubridate)
start_date <- "2018-01-01"
week_number <- 5

table(months(date(start_date) + weeks(week_number) - 1:7))

#February  January 
#       4        3 

week_number <- 9
table(months(date(start_date) + weeks(week_number) - 1:7))

#February    March 
#       3        4