r - 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)

これを行う正しい方法は何ですか？

score 4 · Accepted Answer

これにより、各行の平均を含む列が追加されます

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

EDITがここで機能している理由を明確にしcbindます：

ここではcbind.xts、 wich is a callを使用していますmerge.xts。したがって、上記は次と同等です。

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

score 2 · Accepted Answer

このようなことを意味しますか？

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

2 に答える 2