Объедините несколько dcast data.table (которые используют один и тот же ключ) эффективно

Question

Вот простая проблема, которую я пытаюсь решить: у меня есть таблица данных, как следующая таблица, и я пытаюсь использовать функцию dcast.data.table для вычисления числа продвижения для каждой группы, но я заинтересован, чтобы вычислить median сортов в каждой группе:

set.seed(10); 
DT = data.table(GROUP = sample(c("a","b","c"),100,replace = T), 
       ADVANCED = sample(c("ADVANCED","DROP"),100,replace = T), 
       GRADE = sample(1:10,100, replace=T)) 

    GROUP ADVANCED GRADE 
    1:  b ADVANCED  3 
    2:  a ADVANCED  6 
    3:  b ADVANCED  7 
    4:  c ADVANCED  9 

95:  b  DROP  6 
96:  c ADVANCED  5 
97:  a  DROP 10 
98:  b ADVANCED  1 
99:  c  DROP  6 
100:  a  DROP  2 
    GROUP ADVANCED GRADE 

по существу здесь результат я ищу:

result = merge(
    dcast.data.table(DT,.Primitive("~")(GROUP,ADVANCED)), 
    dcast.data.table(DT,.Primitive("~")(GROUP,.), 
        value.var="GRADE", 
        fun.aggregate=median)); 

setnames(result,".","MEDIAN_GRADE") 

    GROUP ADVANCED DROP MEDIAN_GRADE 
1:  a  17 19   6 
2:  b  20 21   7 
3:  c  13 10   6 

Сейчас я интересно, как я могу это сделать без создания двух отдельных таблиц dcast и слияния в конце. Я имею дело со многими строками и столбцами в моих таблицах, а группировка по ключевым словам является узким местом. Мне интересно, есть ли лучший способ рассчитать это?

** Поскольку мой первый вопрос был неопределенным, я полностью редактирую (спасибо Фрэнку и Акруну за их отзывы).

Answer 1

Для обновленного вопроса

setnames(dcast(DT, GROUP~ADVANCED, length)[dcast(DT, GROUP~., median), 
      on = "GROUP"], ".", "MEDIAN_GRADE")[] 
# GROUP ADVANCED DROP MEDIAN_GRADE 
#1:  a  17 19   6 
#2:  b  20 21   7 
#3:  c  13 10   6 

Или более быстрый подход будет заключаться в группе по 'GROUP', получить median из 'GRADE', а затем сделать присоединиться ondcast выход

DT[,.(MEDIAN_GRADE = median(GRADE)) , .(GROUP)][ 
       dcast(DT, GROUP ~ ADVANCED, length), on = 'GROUP'] 

Answer 2

Ну, вы могли бы вычислить в длинной форме, а затем изменить форму:

dcast(DT[, rbind(
    .SD[, .(v = .N), by=.(stat = paste0("n.",ADVANCED))], 
    .(stat = "med", v = as.numeric(median(GRADE))) 
), by=GROUP], GROUP ~ stat) 

    GROUP med n.ADVANCED n.DROP 
1:  a 6   17  19 
2:  b 7   20  21 
3:  c 6   13  10 

Очевидно, что это все еще включает тонны ручной игры. Это также требует, чтобы ваши статистические данные были числовыми (поскольку они укладываются в столбец stat вместе до dcast). Я думаю, что подход в ответе @ akrun - вроде DT[, f(...), by=GROUP][dcast(DT, GROUP ~ x), on=GROUP] - намного лучше, ограничивая dcast только теми вызовами, которые в нем нуждаются.