r - 如何根据R中的周数计算日期

Question

我想知道是否有办法根据 R 中的周数获得一周的开始日期？例如，如果我输入周数 = 10，它应该给我 2014 年 3 月 9 日。

我知道如何获得相反的结果(又名..给定日期，使用 as.POSIX 函数获取周数)。

谢谢!
普拉哈尔

Answer 1

你可以试试这个:

first.day <- as.numeric(format(as.Date("2014-01-01"), "%w"))
week <- 10
as.Date("2014-01-01") + week * 7 - first.day
# [1] "2014-03-09"

这假设周从周日开始。首先，找出 1 月 1 日是星期几，然后，只需将 7 * 周数加到 1 月 1 日，- 1 月 1 日是星期几。

请注意，这与使用 %W 时得到的结果略有不同。当做相反的事情时，从这个角度来看，一周的第一天似乎是星期一:

format(seq(as.Date("2014-03-08"), by="1 day", len=5), "%W %A %m-%d")
# [1] "09 Saturday 03-08"  "09 Sunday 03-09"    "10 Monday 03-10"    "10 Tuesday 03-11"  
# [5] "10 Wednesday 03-12"

但如果您更喜欢以星期一为中心的 View ，则可以轻松调整上述代码。