我在R中有以下格式的數(shù)據(jù)框：> head(data) Group Score Info1 1 1 a2 1 2 b3 1 3 c4 2 4 d5 2 3 e6 2 1 f我想Score使用max功能將其匯總到列之后> aggregate(data$Score, list(data$Group), max) Group.1 x1 1 32 2 4但我也想顯示與每個(gè)組Info的Score列最大值相關(guān)聯(lián)的列。我不知道該怎么做。我想要的輸出將是： Group.1 x y1 1 3 c2 2 4 d有什么提示嗎？
3 回答
慕森卡
TA貢獻(xiàn)1806條經(jīng)驗(yàn) 獲得超8個(gè)贊
基本的R解決方案是將的輸出aggregate()與一個(gè)merge()步驟結(jié)合起來。我發(fā)現(xiàn)公式接口aggregate()比標(biāo)準(zhǔn)接口更有用，部分原因是輸出中的名稱更好，所以我將使用它：
該aggregate()步驟是
maxs <- aggregate(Score ~ Group, data = dat, FUN = max)
這merge()一步很簡單
merge(maxs, dat)
這給了我們想要的輸出：
R> maxs <- aggregate(Score ~ Group, data = dat, FUN = max)
R> merge(maxs, dat)
Group Score Info
1 1 3 c
2 2 4 d
當(dāng)然，您可以將其粘貼為單線（中介步驟更多用于說明）：
merge(aggregate(Score ~ Group, data = dat, FUN = max), dat)
我使用公式接口的主要原因是它返回的數(shù)據(jù)幀具有正確names的合并步驟。這些是原始數(shù)據(jù)集中的列的名稱dat。我們需要具有aggregate()正確名稱的輸出，以便merge()知道原始數(shù)據(jù)幀和聚合數(shù)據(jù)幀中的哪些列匹配。
標(biāo)準(zhǔn)接口給出奇數(shù)名稱，無論您以哪種方式調(diào)用它：
R> aggregate(dat$Score, list(dat$Group), max)
Group.1 x
1 1 3
2 2 4
R> with(dat, aggregate(Score, list(Group), max))
Group.1 x
1 1 3
2 2 4
我們可以merge()在這些輸出上使用，但是我們需要做更多的工作告訴R哪些列匹配。
DIEA
TA貢獻(xiàn)1820條經(jīng)驗(yàn) 獲得超3個(gè)贊
這是使用該plyr包裝的解決方案。
下面的代碼行實(shí)際上告訴ddply我們首先按組對數(shù)據(jù)進(jìn)行分組，然后在每個(gè)組內(nèi)返回一個(gè)子集，其中“分?jǐn)?shù)”等于該組中的最大分?jǐn)?shù)。
library(plyr)
ddply(data, .(Group), function(x)x[x$Score==max(x$Score), ])
Group Score Info
1 1 3 c
2 2 4 d
而且，正如@SachaEpskamp指出的那樣，可以將其進(jìn)一步簡化為：
ddply(df, .(Group), function(x)x[which.max(x$Score), ])
（which.max如果有的話，它還具有返回多條最大行的優(yōu)點(diǎn)）。
- 3 回答
- 0 關(guān)注
- 615 瀏覽
添加回答
舉報(bào)
0/150
提交
取消