R 中 zoo/xts 个对象的加法

Question

我在R中有两个不同长度的xts对象，定义为：

library(xts)
seq <- seq(as.POSIXct("2015-09-01"),as.POSIXct("2015-09-02"), by = "1 hour")
ob1 <- xts(data.frame(val=1:(length(seq))),seq)
seq2 <- seq(as.POSIXct("2015-09-01"),as.POSIXct("2015-09-03"), by = "1 hour")
ob2 <- xts(data.frame(val=1:(length(seq2))),seq2)

现在，当我对 ob1 和 ob2 执行加法时，如

ob1 + ob2

我得到了结果，但是加法是在两者都很常见的时间戳上完成的。有没有一种方法可以保留两个对象的所有不同时间戳并仍然得到结果？

Answer 1

不是最漂亮的解决方案，但从我的脑海中...

test<-merge(ob1,ob2)
test<-xts(rowSums(test, na.rm=T), order.by = time(test))

R 中 zoo/xts 个对象的加法

Addition over zoo/xts objects in R

r

time-series

zoo

xts