第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問(wèn)題,去搜搜看,總會(huì)有你想問(wèn)的

帶data.table的一個(gè)組的子集

帶data.table的一個(gè)組的子集

翻閱古今 2019-06-10 17:17:37
帶data.table的一個(gè)組的子集假設(shè)我有一個(gè)包含一些棒球運(yùn)動(dòng)員的數(shù)據(jù)表:library(plyr)library(data.table)bdt <- as.data.table(baseball)對(duì)于每個(gè)玩家(由id給出),我希望找到與他們玩游戲最多的年份相對(duì)應(yīng)的行。這在plyr中很簡(jiǎn)單:ddply(baseball, "id", subset, g == max(g))data.table的等效代碼是什么?我試過(guò):setkey(bdt, "id") bdt[g == max(g)]  # only one rowbdt[g == max(g), by = id]   # Error: 'by' or 'keyby' is supplied but not jbdt[, .SD[g == max(g)]] # only one row這樣做是可行的:bdt[, .SD[g == max(g)], by = id]但它只比plyr快30%,說(shuō)明它可能不是慣用的。
查看完整描述

1 回答

?
素胚勾勒不出你

TA貢獻(xiàn)1827條經(jīng)驗(yàn) 獲得超9個(gè)贊

這是快車data.table途徑:

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

這避免了構(gòu)造.SD,這是表達(dá)式中的瓶頸。

編輯:實(shí)際上,OP慢的主要原因不僅僅是.SD但是它以一種特殊的方式使用它-通過(guò)調(diào)用[.data.table,此時(shí)它的開(kāi)銷很大,因此在循環(huán)中運(yùn)行它(當(dāng)您執(zhí)行by)累積了很大的懲罰。


查看完整回答
反對(duì) 回復(fù) 2019-06-10
  • 1 回答
  • 0 關(guān)注
  • 435 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)