r - 将多个函数应用于 data.table 中的多列

Question

我正在尝试将多个函数应用于 data.table 的多列.例子:

DT <- data.table("a"=1:5,
                 "b"=2:6,
                 "c"=3:7)

假设我想获得列的平均值和中位数 a和 b .
这有效:

stats <- DT[,.(mean_a=mean(a),
               median_a=median(a),
               mean_b=mean(b),
               median_b=median(b))]

但是太重复了。是否有使用 .SDcols 获得类似结果的好方法？和 lapply ?

Answer 1

我通常会这样做:

my.summary = function(x) list(mean = mean(x), median = median(x))

DT[, unlist(lapply(.SD, my.summary)), .SDcols = c('a', 'b')]
#a.mean a.median   b.mean b.median 
#     3        3        4        4