在动物园时间序列的结束/开始处添加时间步数答案

【问题标题】：Adding number of time steps at the end/start of a zoo time series在动物园时间序列的结束/开始处添加时间步数
【发布时间】：2015-11-06 07:58:43
【问题描述】：

我有一个动物园时间序列，我想在结束/开始时添加一些具有相同时间间隔的虚拟时间步。例如，我有以下时间序列，我想在最后添加两个时间步长，时间为 ......21:00:00 BST 和 ......21:30:00 BST，所有观测值都为零。

my.zoo.ts = zoo(matrix(c(1:8),ncol=2),
            c("2012-07-05 19:00:00 BST", "2012-07-05 19:30:00 BST", 
              "2012-07-05 20:00:00 BST", "2012-07-05 20:30:00 BST"))

最简单的方法是什么？（除了编辑上面的代码，当然））

【问题讨论】：

标签： r zoo

【解决方案1】：

该系列目前使用的时间字符串可能不是您想要的，因此首先将它们转换为 POSIXct 日期/时间对象：

time(my.zoo.ts) <- as.POSIXct(time(my.zoo.ts))

时间间隔似乎是 30 分钟，所以假设我们想在最后一次过去 30 分钟的两列中添加 100 和 101：

z <- zoo(cbind(100, 101), end(my.zoo.ts) + 30 * 60)
rbind(my.zoo.ts, z)

【讨论】：

非常感谢。我自己不会发现这一点。