获取正确添加的日期答案

【问题标题】：Getting Date to Add Correctly获取正确添加的日期
【发布时间】：2014-05-28 17:18:54
【问题描述】：

我有一个 3000 x 1000 矩阵时间序列数据库，可以追溯到 14 年前，每三个月更新一次。我使用这些数据预测 9 个月仍然保持 3200 x 1100 矩阵（请注意，这些是粗略的数字）。

在预测过程中，我需要适当地计算变量年和月。我正在尝试自动化这个过程，这样我就不必再弄乱代码了；我可以每三个月运行一次代码并将预测上传到我们的数据库中。

下面是我现在使用的代码。正如我上面所说，我不想查看数据或代码，只需每三个月运行一次代码。现在其他一切都按计划进行，但我仍然必须确保日期得到适当的注释。出于隐私目的，foo 变量因其名称的性质而被更改。

projection <- rbind(projection, data.frame(foo=forbar, bar=barfoo, 
+                                                    Year=2012, Month=1:9, 
+                                                    Foo=as.vector(fc$mean)))

【问题讨论】：

在我看来很不清楚你在问什么。究竟是什么问题？您没有提供reproducible example，因此很难看到当前正在发生的事情以及您理想情况下希望发生的事情。考虑将您的问题编辑得更具体。您不必使用“真实”数据，但应该使用“一些”数据。
我是 R 和 StackOverflow 的新手，我不知道如何准确发布数据示例。矩阵部分并不重要。我有从 2001 年 1 月到 2012 年 1 月的数据，其中标有 SP500（示例）、年和月的列。我正在运行 ARIMA 模型来预测未来 9 个月的 SP500。然而，我希望它打印年份和月份以及适当的预测 - 1500 2012 01、1525 2012 02 等。编码打印 2012 年，因为我告诉它，而月份因为我告诉它，当数据更新时我会需要更改该代码以确保打印适当的日期。如何实现自动化？
我有 2001 年 1 月至 2011 年 1 月的数据*** 不是所述的 2012 年。
最好编辑您的原始问题以添加更多信息，而不是在 cmets 中放入大量内容。我在原始评论中提供了一个链接，展示了如何共享示例数据集。但是您可以通过seq.Date(from=Sys.Date(), by="months", length.out=10) 找到当前日期和接下来的 9 个月。或者看看@nfmcclure 的答案是不是你想要的。很难帮助您自动化我们看不到的代码。

标签： r date for-loop forecasting

【解决方案1】：

我不确定年份/月份的确切来源，但如果您想参考这些数字的当前日期，这里有一个选项（使用美妙的包，lubridate）：

library(lubridate)
today = Sys.Date()
projection <- rbind(projection, data.frame(foo=foobar, bar=barfoo,
                                       year = year(today),
                                       month = sapply(1:9,function(x) month(today+months(x))),
                                       Foo = as.vector(fc$mean)))

我希望这就是你要找的。p>

【讨论】：