data.table R - birden çok işlevi birden fazla sütuna uygulama

Question

Birden çok işlevi data.table'un birden çok sütununa uygulamak için çalışıyorum. Örnek:

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

ı ortalama ve sütunlar a ve b ortancasını almak istiyorum diyelim.

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

Ama yol çok tekrarlanan geçerli: Bu çalışır. .SDcols ve lapply'u kullanarak benzer bir sonuç elde etmenin iyi bir yolu var mı?

Answer 1

Bunu normalde ediyorum:

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

Bu biraz sakar ama data.table ile işi yapar:

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