r - 在不规则的 xts 前加上零

Question

我需要添加两个不规则时间序列(涵盖工作日)。

我有两个 xts 系列，用于两种不同的产品 A + B。

产品 B 的数据来自比 A 晚的启动日期。

我想我需要在 B 前面添加前缀，以便日期与 A 匹配，但全为零。

这样 sum(A + B) 等于 sum(A) + sum(B)

产品 A

2009-05-02  4
2010-02-03  4

产品 B

2010-02-03  4

总和:

A + B
2010-02-03  8

想要的结果

2009-05-02  4
2010-02-03  8

Answer 1

这个怎么样？

library(xts)

首先我们需要一些示例数据。

proda <- as.xts(matrix(c(4,4), ncol = 1, dimnames = list(c("2009-05-02", "2010-02-03"))))
prodb <- as.xts(matrix(4, ncol = 1, dimnames = list(c("2010-02-03"))))

基于(公共(public))行名称，merge 将链接两个创建的数据集。

ab <- merge(proda, prodb)

我使用 apply 对每一行的值求和 (MARGIN = 1)，但 rowSums 也可以。

data.frame(val = apply(X = ab, MARGIN = 1, FUN = sum, na.rm = TRUE))

结果:

           val
2009-05-02   4
2010-02-03   8