r语言 - 将一个 xts 除以另一个 xts 并在此过程中创建一个新的 xts

Question

我希望将两个xts对象相互划分。 每个 xts 具有相同的列数(具有相同的列名(，但行数不同。 我希望我的代码在其他 xts 中找到其各自的列并找到相应的日期值并将它们除以，然后将新输出放入具有相同列的新 xts 中。

例如：

XTS 1

Date         V1     V2
2017-07-21   4.5    NA
2017-09-15   NA     2.5

XTS 2

Date         V1     V2
2017-06-15  12.9   10.7
2017-07-21   6.7    2.2
2017-08-13   7.9    8.3
2017-09-15   4.5    3.2

新 XTS

Date         V1     V2
2017-07-21  0.67    NA
2017-09-15   NA    1.28

Answer 1

我认为xts库实际上是一个非常了不起的工具，它会自动做到这一点

> xts1 <- structure(c(4.5, NA, NA, 2.5), .Dim = c(2L, 2L),
   .Dimnames = list(NULL, c("V1", "V2")),
   index = structure(c(1500595200, 1505433600), tzone = "UTC", tclass = "Date"),
   class = c("xts", "zoo"), .indexCLASS = "Date", tclass = "Date",
   .indexTZ = "UTC", tzone = "UTC")
> xts2 <- structure(c(12.9, 6.7, 7.9, 4.5, 10.7, 2.2, 8.3, 3.2),
   .Dim = c(4L, 2L), .Dimnames = list(NULL, c("V1", "V2")),
   index = structure(c(1497484800, 1500595200, 1502582400, 1505433600),
       tzone = "UTC", tclass = "Date"),
   class = c("xts", "zoo"), .indexCLASS = "Date", tclass = "Date",
   .indexTZ = "UTC", tzone = "UTC")
> xts1 / xts2
                  V1      V2
2017-07-21 0.6716418      NA
2017-09-15        NA 0.78125

算术运算将遵循日期并在执行任何操作之前匹配它们。

希望有帮助

Answer 2

这是一个apply的解决方案：

> t(apply(xts1, 1, function(d)as.numeric(xts1[d[1],c('V1', 'V2')])/as.numeric(xts2[d[1],c('V1', 'V2')])))
                [,1]    [,2]
2017-07-21 0.6716418      NA
2017-09-15        NA 0.78125