适用于R中的xts对象

Question

我有一个xts对象。我想为每行取平均值并将其合并回我的对象​​。例如：

require(xts) 
obj = xts(matrix(1:100, ncol=2), order.by=seq.Date(from=as.Date("2012-01-01"), by=1, length=50)) 
another_obj = apply(obj, 1, mean) 

这现在只是一个以日期作为名称的向量。

class(another_obj) 
    [1] "numeric" 

我可以再次将它转换为xts和使用的名称为order.by然后合并一切恢复OBJ但这是相当繁琐。

another_obj = as.xts(another_obj, order.by=as.Date(names(another_obj))) 
obj = merge(obj, another_obj) 

这样做的正确方法是什么？

Answer 1

这将增加一列，每行的平均

obj <- cbind(obj, rowMeans(obj)) 

编辑澄清为什么cbind正在这里：

这里我使用cbind.xts至极是呼叫merge.xts。所以上面相当于：

obj <- merge(obj, rowMeans(obj)) 

Answer 2

你的意思是这样的吗？

obj <- as.xts(transform(obj, another_obj=rowMeans(obj)))