Untergruppe nach Gruppe mit data.table
Angenommen, ich habe eine Datentabelle mit einigen Baseballspielern:
library(plyr)
library(data.table)
bdt <- as.data.table(baseball)
Für jeden Spieler (angegeben durch id) möchte ich die Zeile finden, die dem Jahr entspricht, in dem sie die meisten Spiele gespielt haben. Dies ist in plyr einfach:
ddply(baseball, "id", subset, g == max(g))
Was ist der entsprechende Code für data.table?
Ich habe es versucht:
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
Das funktioniert:
bdt[, .SD[g == max(g)], by = id]
Aber es ist nur 30% schneller als Plyr, was darauf hindeutet, dass es wahrscheinlich nicht idiomatisch ist.