r - 迭代 R 中矩阵的列

Question

我有一个功能

function (x, y) { ... }

期望两个向量 x和 y并返回从它们计算出来的值。

我想将此函数成对应用于两个矩阵的列向量 xs和 ys .来自 R, iterating over the row vectors of a matrix我找到了 mapply()但这似乎将函数成对应用于矩阵的每个元素。相反，我想将该函数应用于整个列。我该怎么做呢？

为了澄清起见，这是一个人为的例子:

xs <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 3, ncol = 2)
ys <- matrix(c(25, 26, 27, 28, 29, 30), nrow = 3, ncol = 2)
dot <- function(x, y) sum(x*y)

Answer 1

还没有人提到asplit (在 R 3.6.0 中添加) - 专门为此案例制作的功能。

例子:

mapply(dot, asplit(xs, 2), asplit(ys, 2))

相同但使用行:

mapply(dot, asplit(xs, 1), asplit(ys, 1))