将周数和年份转换回日期格式

【问题标题】：Converting week number and year back to date format将周数和年份转换回日期格式
【发布时间】：2021-03-18 23:43:44
【问题描述】：

虽然我在这个问题上找到了解决方案，但就我而言，代码仅返回 NAs。怎么了？下面的工作示例：

df <- data.frame("date" = seq(as.Date("2015/1/1"), as.Date("2016/1/1"), by = "day"))
df$week <- format(df$date, "%W-%Y")
str(df)

# week back into proper date
df$week_date <- as.Date(paste0("01-", df$week), format = "%w-%W-%Y")
str(df)

【问题讨论】：

看起来如果你把前导零去掉，它主要工作...as.Date(paste0("1-", df$week), format = "%w-%W-%Y")
当周 = 0 时，它看起来不知道如何处理，所以对于这些情况，您仍然会得到 NA。

标签： r date as.date

【解决方案1】：

@cory：你的回答是正确的，让我找到了解决方案。 strptime 的 R 文档说：

%w 工作日为十进制数（0--6，星期日为 0）。

%W 以十进制数 (00--53) 表示的一年中的星期，使用星期一作为一周的第一天（通常以一年中的第一个星期一为第 1 周的第 1 天）。英国公约。

所以，这在 paste0 只有一位数之后按预期工作：

df <- data.frame("date" = seq(as.Date("2014/1/1"), as.Date("2016/1/1"), by = "day"))
df$week <- format(df$date, "%W-%Y")
str(df)

# week back into proper date
df$week_date <- as.Date(paste0("1-", df$week), format = "%w-%W-%Y")

str(df)
View(df)

值得注意的是，任何新年的第一个星期一之前的日子都会在无人区登陆，因此需要单独处理。

【讨论】：