R 中的每周日期

Question

我在将每周日期转换为每月日期时遇到了麻烦，从一个看起来像这样的字符串开始

tt <-  c("2009-24-1", "2001-10-1", "2000-16-1", "2013-18-1", "2015-21-1",
         "2015-53-1", "2009-53-1")

我认为这个日期的正确格式应该是format = "%Y-%V-%u"因为 R 文档产生

%V
Week of the year as decimal number (01–53) as defined in ISO 8601.

但是，不幸的是，当我尝试转换为日期时它不起作用

as.Date(tt, format = "%Y-%V-%u", origin = "1970-01-01")

# "2009-02-21" "2001-02-21" "2000-02-21" "2013-02-21" "2015-02-21" "2015-02-21" "2009-02-21"

这显然是不正确的。 然后我尝试使用%U

%U
Week of the year as decimal number (00–53) using Sunday as the first day 1 of the week 

并且由于我所有的日期都是从星期一开始的每周日期，这也是不正确的，但至少会产生一些正确的日期和一些 NA。

as.Date(tt, format = "%Y-%U-%u", origin = "1970-01-01")

# "2009-06-15" "2001-03-12" "2000-04-17" "2013-05-06" "2015-05-25" NA           NA  

我很欣赏任何可以解决这个问题的想法（最好不使用包）。

Answer 1

在?strptime帮助页面上，它说 %V 已接受但在输入时被忽略。 而是使用 ISOweek package 将tt转换为 Date class ，然后通过使用问题中给出的“%Y-%V-%u”格式转换回来进行仔细检查（它使用 %V 作为 Z78E6221F6393D135DZ681DB3，所以它应该工作） . 请注意， ISOweek2date期望周数以 W 开头，因此使用sub插入。

library(ISOweek)
date <- ISOweek2date(sub("-", "-W", tt))

# converting date back to ISOweek using format in question should give back tt
identical(format(date, "%Y-%V-%u"), tt)
## [1] TRUE

Answer 2

使用strptime揭示了这个问题。

strptime(tt, "%Y-%U-%u", tz="UTC")
# [1] "2009-06-15 UTC" "2001-03-12 UTC" "2000-04-17 UTC"
# [4] "2013-05-06 UTC" "2015-05-25 UTC" NA              
# [7] NA              
# Warning messages:
# 1: In strptime(tt, "%Y-%U-%u", tz = "UTC") :
#   (0-based) yday 368 in year 2015 is invalid
# 2: In strptime(tt, "%Y-%U-%u", tz = "UTC") :
#   (0-based) yday 368 in year 2009 is invalid