R as.Date（）将年和周数转换为日期

Question

我在使用R中的as.Date（）函数转换包含第53周的年+月字符串时遇到麻烦。

该代码适用于第52周的顶部示例，但返回适用于第53周的底部示例的NA。

a <- "2017521"
as.Date(a, '%Y%W%u')
"2017-12-25"

b <- "2017531"
as.Date(b, '%Y%W%u')
NA

Answer 1

您正在得到b <- "2017531" NA ，因为您尝试引用的日期不存在。

这与格式化日期的方式以及日历的启动方式有关。

%W表示数字星期00-53

%u指的是星期1-7，星期一是1

b <- "2017531"
as.Date(b, '%Y%W%u')
# [1] NA

第53周的第1天指第53周的星期一。 但是，2017年第53周发生的一周中的唯一一天是星期日。

c <- "2017537"
as.Date(a, '%Y%W%u')
# [1] "2017-12-31"

您可以通过检查第52周星期六的日期来进一步确认：

d <- "2017526"
as.Date(a, '%Y%W%u')
# [1] "2017-12-30"