Question

我正在尝试将52周添加到YYYYWW格式的日期变量中。我的初始日期是201616（2016年和第16周），我想在这个日期增加52周，预计产量是2017年。

我尝试了几件但没有运气，这是我到目前为止所尝试的事情

date <- as.Date(as.character(201616), "%Y%W")
seq(date, by = "1 week", length.out = 52)

我非常感谢您的意见。非常感谢您的时间！

Answer 1

问题是2016年第16周有7天。您需要指定一天将其转换为可用于添加天数的日期。在下面的代码中，%u表示一周的第一天。然后，您可以为此号码添加52周。

date1 <- as.Date("201616 1", format = "%Y%U %u")
format(date1+(52*7), "%Y%U")
[1] "201716"

Answer 2

我不确定as.Date是否可以%Y%W并生成唯一值。它似乎填充了当前月和日的date。如果我们在第16周指定一个日期：

date <- as.Date("2016-04-23")

并以您的风格格式化

format(date, "%Y%W")
[1] "201616"

我们可以从这个

生成52个值的序列

newdate_seq <- seq(date, by = "1 week", length.out = 52)

并将其更改为您的格式

format(newdate_seq, "%Y%W")
 [1] "201616" "201617" "201618" "201619" "201620" "201621" "201622" "201623" "201624" "201625" "201626" "201627"
[13] "201628" "201629" "201630" "201631" "201632" "201633" "201634" "201635" "201636" "201637" "201638" "201639"
[25] "201640" "201641" "201642" "201643" "201644" "201645" "201646" "201647" "201648" "201649" "201650" "201651"
[37] "201652" "201701" "201702" "201703" "201704" "201705" "201706" "201707" "201708" "201709" "201710" "201711"
[49] "201712" "201713" "201714" "201715"

以你期望的结束。

仅供参考，下一次尝试突出显示导致您认为存在的原因＆＃34;没有运气＆＃34; - 您产生了哪些错误，您产生了什么结果？它们与您预期产生的结果有何不同？只需打印date变量，就会发现我并没有按照您的预期进行操作。

R +在YYYYWW格式中添加n周数

2 个答案: