用函数创建矩阵答案

【问题标题】：Create a matrix out of functions用函数创建矩阵
【发布时间】：2020-02-14 06:41:27
【问题描述】：

到目前为止，我找不到解决方案... 我有一个 7 列的数据框 X。我想从矩阵中收集的第 6 列和第 7 列中获取统计数据。我想用一行代码来解决这个问题。我需要一个函数来获取数据帧 X 的第 6 列和第 7 列并计算均值、var、sd、...

我使用的代码是这个：

matrix(c(mean(X$6), mean(X$6, trim = 0.05), var(X$6), sd(X$6),
         mean(X$7), mean(X$7, trim = 0.05), var(X$7), sd(X$7)),
         nr = 4, dimnames = list(c("mean", "meanTrim", "var", "sd"), 
                                 c("WorkTime", "TransTime")))

它有效，但似乎很尴尬。你知道更短的解决方案吗？

【问题讨论】：

标签： r function matrix statistics

【解决方案1】：

你可以这样做：

Y <- sapply(X[, 6:7], function(i) c(mean(i), mean(i, trim = 0.05), var(i), sd(i)))
dimnames(Y) <- list(c("mean", "meanTrim", "var", "sd"), c("WorkTime", "TransTime"))

【讨论】：

完美运行！非常感谢