r - 将均值和标准差应用于数据表的每一列

Question

我有一个包含三列的数据表:准确性、特异性和灵敏度。对于每一列，我想计算每一列的均值和标准差。我希望结果是一个包含六列的数据表(Accuracy.mean、Accuracy.sd、Specificity.mean、Specificity.sd，...)。到目前为止，我这样做了:

test<-function(x){
  c(mean = mean(x),sd = sd(x))
}
b<-a[ ,lapply(.SD, test)]

有了这个，我得到每列两行。我怎么解决这个问题？

Answer 1

你很接近。只需在 lapply 上使用 unlist 即可。

b<-a[ ,unlist(lapply(.SD, test))]
b
#Accuracy.mean Accuracy.sd Specificity.mean Specificity.sd Sensitivity.mean Sensitivity.sd 
# 5.50000       3.02765         16.50000        3.02765      105.50000          3.02765 

dplyr 非常简单:

library(dplyr)
summarise_all(a, .funs = funs(mean, sd))
#Accuracy_mean Specificity_mean Sensitivity_mean Accuracy_sd Specificity_sd Sensitivity_sd
#1           5.5             16.5            105.5     3.02765        3.02765        3.02765

OP 创建的函数

test<-function(x){
  c(mean = mean(x),sd = sd(x))
}

示例数据

library(data.table)
a<- data.table(Accuracy = 1:10, Specificity = 12:21, Sensitivity = 101 : 110)