R xts 如何合并两个具有重叠时间范围的 xts/zoo 以及一个主要和一个次要

Question

我有两个 xts/zoo，一个是主要的，另一个是次要的。我想按行合并它们。两个 xts/zoo 可能具有不同值的重复索引。 如果索引重复，则应保留主要行。 比如

mainXts
2019-02-26    4
2019-02-27   90
2019-02-28    6
2019-03-01    7
2019-03-02    8
2019-03-03    9
2019-03-04   10

secondaryXts
2019-02-23    1
2019-02-24    2
2019-02-25    3
2019-02-26    4
2019-02-27    5
2019-02-28    6

结果应该是

2019-02-23    1
2019-02-24    2
2019-02-25    3
2019-02-26    4
2019-02-27   90
2019-02-28    6
2019-03-01    7
2019-03-02    8
2019-03-03    9
2019-03-04   10

有没有简单的方法来做联合？ 谢谢

Answer 1

我不确定您是否会称其为简单，但这可以解决问题。首先将两个 xts 对象与主对象合并，检查 out 对象内的列名并在 ifelse 中使用它们。在 ifelse 中，将 NA 替换为第二列中的值，然后我们删除您不需要的列。

out <- merge(mainxts, secondxts)
out$mainxts <- ifelse(is.na(out$mainxts), out$secondxts, out$mainxts)
out$secondxts <- NULL

out
           mainxts
2019-02-23       1
2019-02-24       2
2019-02-25       3
2019-02-26       4
2019-02-27      90
2019-02-28       6
2019-03-01       7
2019-03-02       8
2019-03-03       9
2019-03-04      10

数据：

mainxts <- structure(c(4L, 90L, 6L, 7L, 8L, 9L, 10L), .Dim = c(7L, 1L), index = structure(c(1551139200, 
1551225600, 1551312000, 1551398400, 1551484800, 1551571200, 1551657600
), tzone = "UTC", tclass = "Date"), class = c("xts", "zoo"), .indexCLASS = "Date", tclass = "Date", .indexTZ = "UTC", tzone = "UTC", .CLASS = "integer")

secondxts <- structure(1:6, .Dim = c(6L, 1L), index = structure(c(1550880000, 
1550966400, 1551052800, 1551139200, 1551225600, 1551312000), tzone = "UTC", tclass = "Date"), class = c("xts", 
"zoo"), .indexCLASS = "Date", tclass = "Date", .indexTZ = "UTC", tzone = "UTC", .CLASS = "integer")