在 R 中自动创建具有不同开始日期的日期序列

Question

我可以使用以下代码创建所需的日期序列：

DateTwoWeeks1 <- seq(as.Date("2010/8/6"), as.Date("2011/8/5"), by = "2 weeks")
DateTwoWeeks2 <- seq(as.Date("2010/8/7"), as.Date("2011/8/5"), by = "2 weeks")
DateTwoWeeks3 <- seq(as.Date("2010/8/8"), as.Date("2011/8/5"), by = "2 weeks")

但是，我想自动为 14 个不同的开始日期创建日期序列。我想要一个从 2010 年 8 月 6 日开始的时间序列，下一个从 7 日开始的时间序列，以此类推，直到 2010 年 8 月 19 日。

如何实现自动化？我尝试使用“粘贴”功能，但无法使以下代码工作：

for (i in 6:19){
TimeTwoWeeks[i] <- seq(as.Date(paste("2010/8/", i)), as.Date("2011/8/5"), by = "2 weeks")
}

非常感谢任何直接帮助或与其他网站/帖子的链接。

Answer 1

给你：

TimeTwoWeeks <- lapply(as.Date("2010/8/6") + 0:13, 
                       function(X) seq(X, as.Date("2011/8/5"), by = "2 weeks"))

Answer 2

如果要创建时间序列列表，可以进行如下调整：

TimeTwoWeeks <- list()

for (i in 6:19){
TimeTwoWeeks[[i-5]] <- seq(as.Date(paste("2010/8/", i)), as.Date("2011/8/5"), by = "2 weeks")
}