R划分2个列表对象，每个对象都包含相同大小的xts对象答案

【问题标题】：R divide 2 list objects which each contain the same size xts objectsR划分2个列表对象，每个对象都包含相同大小的xts对象
【发布时间】：2012-02-01 04:19:56
【问题描述】：

我有 2 个列表，其组件是 xts 对象（co 和 oc）。我想生成另一个具有 oc / co 结果的列表对象。

> length(co)
[1] 1064
> length(oc)
[1] 1064

> tail(co[[1]])
                [,1]
2011-12-22 0.3018297
2011-12-23 0.2987450
2011-12-27 0.2699710
2011-12-28 0.2706428
2011-12-29 0.2098897
2011-12-30 0.2089051


> tail(oc[[1]])
                [,1]
2011-12-22 0.6426411
2011-12-23 0.6462834
2011-12-27 0.6466680
2011-12-28 0.6741420
2011-12-29 0.6781371
2011-12-30 0.6650130


> co / oc
Error in co/oc : non-numeric argument to binary operator

如果我指定列表的索引，则操作成功如下：

> tail(co[[1]] / oc[[1]])
                [,1]
2011-12-22 0.4696707
2011-12-23 0.4622507
2011-12-27 0.4174800
2011-12-28 0.4014627
2011-12-29 0.3095093
2011-12-30 0.3141369

我想在不编写循环遍历两个列表的每个组件（总共 1064 个组件）的情况下执行此操作。

任何帮助将不胜感激。谢谢。

【问题讨论】：

标签： list r xts

【解决方案1】：

这样的事情可能会奏效：

mapply("/",co,oc,SIMPLIFY = FALSE)

虽然可能有无数种方法可以做到这一点，但大部分都是等效的。

这是一个使用 xts 包中的一些示例数据的最小示例：

data(sample_matrix)
sample.xts <- as.xts(sample_matrix, descr='my new xts object')
v1 <- list(a = sample.xts[,1],b = sample.xts[,2])
v2 <- list(a = sample.xts[,3],b = sample.xts[,4])
mapply("/",v1,v2,SIMPLIFY = FALSE)

更新： 我们现在可以使用Map，默认情况下基本上是mapply(..., simplify = FALSE)。

Map("/",co,oc)

【讨论】：

这是完美的。非常感谢。