data.table w R - zastosowanie wielu funkcji do wielu kolumn

Question

Próbuję zastosować wiele funkcji do wielu kolumn data.table. Przykład:

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

Powiedzmy, że chcesz uzyskać średnią i medianę kolumn a i b. to działa:

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

Ale to jest zbyt monotonne. Czy istnieje dobry sposób na osiągnięcie podobnego wyniku przy użyciu .SDcols i lapply?

Answer 1

bym normalnie to zrobić:

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

To jest trochę niezdarny, ale spełnia swoje zadanie z 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