在 R 中获取公历周数（类似于 Excel）
Getting Gregorian Calendar Week Numbers (Similar to Excel) in R
如何在 R 中获得以下结果？
Date
Week Number
12-27-2020
53
12-28-2020
53
12-29-2020
53
12-30-2020
53
12-31-2020
53
1-1-2021
1
换句话说，我希望周日是一周的第一天，也是最后一周包含的一年的最后一天。又名第 53 周。
这给出了与问题中相同的值：
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)
但他们没有给出与问题中相同的结果。
如何在 R 中获得以下结果？
| Date | Week Number |
|---|---|
| 12-27-2020 | 53 |
| 12-28-2020 | 53 |
| 12-29-2020 | 53 |
| 12-30-2020 | 53 |
| 12-31-2020 | 53 |
| 1-1-2021 | 1 |
换句话说，我希望周日是一周的第一天，也是最后一周包含的一年的最后一天。又名第 53 周。
这给出了与问题中相同的值：
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)
但他们没有给出与问题中相同的结果。