सबसेट data.table

Question

साथ समूह द्वारा मान लें मैं युक्त एक डेटा तालिका कुछ बेसबॉल खिलाड़ियों है: प्रत्येक खिलाड़ी (आईडी द्वारा दिए गए) के लिए

library(plyr) 
library(data.table) 

bdt <- as.data.table(baseball) 

, मैं पंक्ति साल के लिए इसी लगाना चाहते हैं जिसमें वे सबसे अधिक खेल खेला। यह प्लीयर में सीधा है:

ddply(baseball, "id", subset, g == max(g)) 

डेटा.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 की तुलना में तेजी है, सुझाव यह शायद मुहावरेदार नहीं है।

bdt[bdt[, .I[g == max(g)], by = id]$V1] 

यह .SD, जो आपके भाव में अड़चन है निर्माण से बचा जाता है:

Answer 1

यहाँ तेजी से data.table तरीका है।

संपादित करें: वास्तव में, मुख्य कारण ओपी धीमी है बस इसे उस में .SD है, लेकिन नहीं है तथ्य यह है कि यह एक खास तरह से इसे इस्तेमाल करता है - [.data.table बुला, जो इस समय एक बहुत बड़ा है द्वारा ओवरहेड, इसलिए इसे लूप में चलाएं (जब कोई by करता है) एक बहुत बड़ा जुर्माना जमा करता है।