Предположим, у меня есть таблица данных, содержащая некоторых игроков в бейсбол:
library(plyr)
library(data.table)
bdt <- as.data.table(baseball)
Для каждого игрока (заданного id) я хочу найти строку, соответствующую году, в котором они играли в большинстве игр. Это просто в plyr:
ddply(baseball, "id", subset, g == max(g))
Что эквивалентный код для data.table?
Я пробовал:
setkey(bdt, "id")
bdt[g == max(g)] # only one row
bdt[g == max(g), by = id] # Error: 'by' or 'keyby' is supplied but not j
bdt[, .SD[g == max(g)]] # only one row
Это работает:
bdt[, .SD[g == max(g)], by = id]
Но он только на 30% быстрее, чем plyr, что говорит о том, что он, вероятно, не идиоматичен.
