Строки подмножества, соответствующие максимальному значению по группе с использованием data.table

Предположим, у меня есть data.table, в котором есть несколько бейсболистов:

library(plyr)
library(data.table)

bdt <- as.data.table(baseball)

Для каждой группы (заданной идентификатором игрока) я хочу выбрать строки, соответствующие максимальному количеству игр «g». Это просто в 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, что говорит о том, что это, вероятно, не идиоматично.