如何将R apply函数的结果保存到矩阵中？

Question

假设我有一个数据集X，其维度为100 x 10.我想将一组函数应用于每一列，并将结果保存在具有相同列标题的新数据框中。

例

M <- matrix(rexp(200, rate=.1), ncol=20)
M_df <- as.data.frame(M)
row1 <- apply(M_df,2,mean)
row2 <- apply(M_df,2,var)
row3 <- apply(M_df,2,sum)

我想创建一个由row1，row2和row3组成的新矩阵，它与M_df具有相同的列标题。

谢谢！ 马克斯

Answer 1

尝试这个：

apply(M_df,2,function(x) c(mean = mean(x),var = var(x),sum = sum(x)))

虽然，请记住，首先apply是将M_df转换回矩阵，因此在您真正需要之前将它转换为数据帧并没有多大意义。