从年初的年周号中获取周的第一天的日期

我无法复制你的 NA .

as.Date("2014-00-1", "%Y-%W-%u")
[1] "2014-01-06"
as.Date("2014-01-1", "%Y-%W-%u")
[1] "2014-01-06"

这使我认为第0周的解决方案是减去7:

as.Date("2014-00-1", "%Y-%W-%u") - 7
[1] "2013-12-30"

在阅读 as.Date ,此行为可能因“特定于区域设置的转换”而有所不同。无论如何,您可以编写自己的函数来处理您的第0周:

myfun <- function(year, week) {
    if (week == 0) { 
        as.Date(paste(year, "01", "1", sep="-"), "%Y-%W-%u") - 7
    } else { 
        as.Date(paste(year, week, "1", sep="-"), "%Y-%W-%u")
    }
}