多年来连续周过渡

Question

我正在尝试使用 as.Date 计算相对于任何 origin 或基准日期的周偏移量。例如：

bd = as.Date("2013-12-29")
ad1 = as.Date("2014-01-01")
ad1w = as.numeric(strftime(ad1, format = "%W"))
ad2 = as.Date("2015-04-20")
ad2w = as.numeric(strftime(ad2, format = "%W"))

提供：ad1w = 0、ad2w = 16。我希望 ad1w 和 ad2w 不是 0 和 16，而是偏移到 bd 的数字。是否可以？来源可以是任何日期。谢谢！

澄清一点。比方说：

bd = as.Date("2013-12-25")
ad1 = as.Date("2015-01-07")
ad2 = as.Date("2015-01-06")

即bd 是 2013 年的第 51 周，ad1 和 ad2 都是 2015 年的第 1 周。两个偏移量都应该是 54 周，没有四舍五入。

Answer 1

这就够了吗？

ad1w <- as.numeric(floor((ad1 - bd) /7))
ad2w <- as.numeric(floor((ad2 - bd) /7))

更新

使用lubridate你可以使用：

library(lubridate)

ad1w <- as.numeric(floor((ad1-lubridate::wday(ad1) - (bd-lubridate::wday(bd))) /7))
ad2w <- as.numeric(floor((ad2-lubridate::wday(ad2) - (bd-lubridate::wday(bd))) /7))

逻辑如下。将每个日期重新编码为上一周的最后一个日期，然后使用as.numeric(floor((recoded_ad1 - recoded_bd) /7))