r - 如何从日期获得下周日结束的一周

Question

我知道 lubridate 有一个函数 ceiling_date 但它提供从给定日期开始的下周六结束的一周。我怎样才能改变它，让一周结束于下周日？

> ceiling_date(as.Date('2017-06-16'), 'week')
[1] "2017-06-17 20:00:00 EDT"

Answer 1

我认为这可能是 ceiling_date 的错误，如下所示:https://github.com/tidyverse/lubridate/issues/479

一个解决方法可能是获取年/周然后四舍五入到星期日:

as.Date(paste0(year('2017-06-16'), week('2017-06-16') + ifelse(wday('2017-06-16')==1,0,1), 7), format =  "%Y%U%u")
#[1] "2017-06-18"

来自 ?strptime:

• %Y 是带世纪的年份(即 2017)
• %U 是十进制的一年中的星期
• %u 是从 1 到 7 的星期几(1 是星期一)

所以我们需要将周移动 1(因此是 +1)，然后我们将这一天设置为星期日 7。