Как узнать количество дней (падение в феврале) на 5-й неделе года 2018

Question

Я работаю над заданием, в котором мне нужно получить количество дней, приходящихся на определенную неделю в месяце.Например - на 5-й неделе 2018 года - в январе 3 дня, а в феврале 4 дня.Как я могу получить Месяц (январь, февраль) и количество дней (3,4 соответственно)

Answer 1

Подход с as.Date и table:

year <- 2018
weeknumber <- 5
ENDDATE <- as.Date(paste(year, weeknumber, 1, sep="-"), "%Y-%U-%u")
table(format.Date(seq(ENDDATE-7, ENDDATE-1, 1), "%b"))
Feb Jan 
  4   3

Answer 2

Вариант смазки

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