r - 将一堆函数应用于 R 中矩阵的列

有一种方法可以将函数 f 应用于矩阵的每一列:

M <- matrix(seq(1,16), 4, 4)
apply(M, 2, mean)
#[1]  2.5  6.5 10.5 14.5

但是如果我想建立一个关于矩阵的描述性统计，我应该使用更多的 indeces。例如，max, min, mean 等。

但 R 不允许做这样的事情:

apply(M, 2, c(mean, max))

得到这个输出:

#      [,1] [,2] [,3] [,4]
#mean   2.5  6.5 10.5 14.5
#max      4    8   12   16

你能告诉我如何处理这个问题吗？

最佳答案

apply(M, 2, function(x) c(mean(x), max(x)))
#      [,1] [,2] [,3] [,4]
# [1,]  2.5  6.5 10.5 14.5
# [2,]  4.0  8.0 12.0 16.0

关于r - 将一堆函数应用于 R 中矩阵的列，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/29472411/