将矩阵除以一列答案

【问题标题】：divide a matrix by one column将矩阵除以一列
【发布时间】：2011-10-25 08:32:45
【问题描述】：

我有一个多列 xts，我想除以一个 xts（当然使用日期作为主键）。

有没有办法以矢量化的方式做到这一点？

谢谢

【问题讨论】：

【解决方案1】：

见?sweep（如果我明白你的意思 - 可重复的例子！？）：

data(sample_matrix)
sample.xts <- as.xts(sample_matrix, descr='my new xts object')
## create a matrix...
m <- sample.xts[, -1]
## ...and a vector from the sample.xts object
v <- sample.xts[, 1]
## apply sweep
out <- sweep(m, 1, v, "/")

这给出了：

> class(out)
[1] "xts" "zoo"
> head(out)
               High       Low     Close
2007-01-02 1.001559 0.9982141 1.0015587
2007-01-03 1.003810 1.0000000 1.0033281
2007-01-04 1.000000 0.9968898 0.9982428
2007-01-05 1.000000 0.9969739 0.9992283
2007-01-06 1.000000 0.9973506 0.9987421
2007-01-07 1.001666 0.9972022 0.9972022

【讨论】：