r - 在 R 中获取公历周数（类似于 Excel）

Question

如何在 R 中获得以下结果？

日期	周数
2020 年 12 月 27 日	53
2020 年 12 月 28 日	53
2020 年 12 月 29 日	53
2020 年 12 月 30 日	53
2020 年 12 月 31 日	53
2021 年 1 月 1 日	1

换句话说，我希望星期天是一周的第一天和最后一周包括在一年中的最后一天。又名第 53 周。

Answer 1

这给出了与问题中相同的值：

ch <- c("12-27-2020", "12-28-2020", "12-29-2020", "12-30-2020", "12-31-2020", "1-1-2021")
d <- as.Date(ch, "%m-%d-%Y")
as.numeric(format(d, "%U")) + 1
## [1] 53 53 53 53 53  1

还有

• as.numeric(format(d, "%V"))
• lubridate::isoweek(d)
• ISOweek::ISOweek(d)

但他们没有给出与问题相同的结果。