Ребята, знаете, как получить первый день каждой недели в пределах временного интервала, используя пакет "lubridate"?
Я знаю, что могу также сгенерировать, используя «seq.Date», но теперь, когда я создал временной интервал и хотел бы позже использовать его с «% в%», я хотел бы просто использовать этот интервал и получить дату каждого неделя от него.
library(lubridate)
dates <- seq(Sys.Date() - 100, Sys.Date(), by = "1 days")
week.ids <- floor_date(dates, "week")
Теперь dates будет иметь каждый из последних 100 дней, а week.ids будет иметь дату последнего воскресенья перед каждой из дат в dates. Следовательно, вектор week.ids предоставляет достаточно информации для группировки дат по неделям.
