data.table в R - применить несколько функций к нескольким столбцам

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 

Answer 2

Это немного неуклюжим, но делает работу с data.table:

funcs = c('median', 'mean', 'sum') 

m = DT[, lapply(.SD, function(u){ 
     sapply(funcs, function(f) do.call(f,list(u))) 
    })][, t(.SD)] 
colnames(m) = funcs 

# median mean sum 
#a  3 3 15 
#b  4 4 20 
#c  5 5 25