適用於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)))