从一个时间间隔每周提取

Question

你们知道吗，如何使用“lubridate”软件包在一个时间间隔内获得每周的第一天？

我知道我也可以使用“seq.Date”生成，但是现在我已经生成了一个时间间隔，并希望以后使用“％in％”，我想只使用这个间隔并得到每周的日期。

Answer 1

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向量提供了足够的信息来按周对日期进行分组。