Podzbiór według grupy z danymi.tabela
Załóżmy, że mam tabelę danych zawierającą niektórych graczy w baseball:
library(plyr)
library(data.table)
bdt <- as.data.table(baseball)
Dla każdego gracza (podanego przez id) chcę znaleźć wiersz odpowiadający rokowi, w którym grali w większość gier. Jest to proste w plyr:
ddply(baseball, "id", subset, g == max(g))
Jaki jest równoważny kod dla data.table?
Próbowałem:
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
To działa:
bdt[, .SD[g == max(g)], by = id]
Ale jest to tylko 30% szybsze niż plyr, co sugeruje, że prawdopodobnie nie jest idiomatyczne.