R 語(yǔ)言中的匯總統(tǒng)計(jì):如何批量計(jì)算不同因素不同水平的平均值

參考

https://stackoverflow.com/questions/12478943/how-to-group-data-table-by-multiple-columns
實(shí)際工作中,我們需要對(duì)數(shù)據(jù)進(jìn)行平均值計(jì)算训枢,這里我比較了aggregatedata.table的方法,測(cè)試主要包括:
1,對(duì)數(shù)據(jù)yield計(jì)算平均值
2,計(jì)算N不同水平的平均值
3虱疏, 計(jì)算N和P不同水平的平均值

1. 常規(guī)方法aggregate

代碼:

data(npk)head(npk)aggregate(yield~N,data=npk,FUN = mean)aggregate(yield~N+P,data=npk,FUN = mean)

結(jié)果

> aggregate(yield~N,data=npk,FUN = mean)  N    yield1 0 52.066672 1 57.68333> aggregate(yield~N+P,data=npk,FUN = mean)  N P    yield1 0 0 51.716672 1 0 59.216673 0 1 52.416674 1 1 56.15000

2. 使用data.table方法

代碼:

data(npk)head(npk)library(data.table)setDT(npk)# 單個(gè)變量npk[,mean(yield),by=N]# 兩個(gè)變量npk[,mean(yield),by=c("N","P")]# 兩個(gè)變量的另一種寫(xiě)法npk[,mean(yield),by=list(N,P)]npk[,mean(yield),by=.(N,P)]

結(jié)果:

> # 單個(gè)變量> npk[,mean(yield),by=N]   N       V11: 0 52.066672: 1 57.68333> > # 兩個(gè)變量> npk[,mean(yield),by=c("N","P")]   N P       V11: 0 1 52.416672: 1 1 56.150003: 0 0 51.716674: 1 0 59.21667> > > # 兩個(gè)變量的另一種寫(xiě)法> npk[,mean(yield),by=list(N,P)]   N P       V11: 0 1 52.416672: 1 1 56.150003: 0 0 51.716674: 1 0 59.21667> npk[,mean(yield),by=.(N,P)]   N P       V11: 0 1 52.416672: 1 1 56.150003: 0 0 51.716674: 1 0 59.21667

要點(diǎn):

data.table速度更快呀打,語(yǔ)法更簡(jiǎn)單肪虎。


?

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市哮幢,隨后出現(xiàn)的幾起案子带膀,更是在濱河造成了極大的恐慌,老刑警劉巖橙垢,帶你破解...
    沈念sama閱讀 218,682評(píng)論 6 507
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件垛叨,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡钢悲,警方通過(guò)查閱死者的電腦和手機(jī)点额,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,277評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門(mén)舔株,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人还棱,你說(shuō)我怎么就攤上這事载慈。” “怎么了珍手?”我有些...
    開(kāi)封第一講書(shū)人閱讀 165,083評(píng)論 0 355
  • 文/不壞的土叔 我叫張陵办铡,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我琳要,道長(zhǎng)寡具,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,763評(píng)論 1 295
  • 正文 為了忘掉前任稚补,我火速辦了婚禮童叠,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘课幕。我一直安慰自己厦坛,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,785評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布乍惊。 她就那樣靜靜地躺著杜秸,像睡著了一般。 火紅的嫁衣襯著肌膚如雪润绎。 梳的紋絲不亂的頭發(fā)上撬碟,一...
    開(kāi)封第一講書(shū)人閱讀 51,624評(píng)論 1 305
  • 那天,我揣著相機(jī)與錄音莉撇,去河邊找鬼呢蛤。 笑死,一個(gè)胖子當(dāng)著我的面吹牛稼钩,可吹牛的內(nèi)容都是我干的顾稀。 我是一名探鬼主播,決...
    沈念sama閱讀 40,358評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼坝撑,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼静秆!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起巡李,我...
    開(kāi)封第一講書(shū)人閱讀 39,261評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤抚笔,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后侨拦,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體殊橙,經(jīng)...
    沈念sama閱讀 45,722評(píng)論 1 315
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,900評(píng)論 3 336
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了膨蛮。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片叠纹。...
    茶點(diǎn)故事閱讀 40,030評(píng)論 1 350
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖敞葛,靈堂內(nèi)的尸體忽然破棺而出誉察,到底是詐尸還是另有隱情,我是刑警寧澤惹谐,帶...
    沈念sama閱讀 35,737評(píng)論 5 346
  • 正文 年R本政府宣布持偏,位于F島的核電站,受9級(jí)特大地震影響氨肌,放射性物質(zhì)發(fā)生泄漏鸿秆。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,360評(píng)論 3 330
  • 文/蒙蒙 一怎囚、第九天 我趴在偏房一處隱蔽的房頂上張望卿叽。 院中可真熱鬧,春花似錦桩了、人聲如沸附帽。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,941評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至整胃,卻和暖如春颗圣,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背屁使。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,057評(píng)論 1 270
  • 我被黑心中介騙來(lái)泰國(guó)打工在岂, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人蛮寂。 一個(gè)月前我還...
    沈念sama閱讀 48,237評(píng)論 3 371
  • 正文 我出身青樓蔽午,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親酬蹋。 傳聞我的和親對(duì)象是個(gè)殘疾皇子及老,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,976評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容