如何按组获取最大值答案

【问题标题】：How to get the maximum value by group如何按组获取最大值
【发布时间】：2013-01-29 21:22:59
【问题描述】：

我有一个 data.frame 有两列：year 和 score。年份从 2000 年到 2012 年，每年可以多次列出。在分数列中，我列出了每一年的所有分数，每一行都有不同的分数。

我想做的是过滤data.frame，以便只保留每年得分最高的行。

如果我有一个小例子

year score
2000    18
2001    22
2000    21

我只想回来

year score
2001    22
2000    21

【问题讨论】：

标签： r max

【解决方案1】：

如果你懂sql，这更容易理解

library(sqldf)
sqldf('select year, max(score) from mydata group by year')

更新 (2016-01)：现在您也可以使用 dplyr

library(dplyr)
mydata %>% group_by(year) %>% summarise(max = max(score))

【讨论】：

【解决方案2】：

使用plyr

require(plyr)
set.seed(45)
df <- data.frame(year=sample(2000:2012, 25, replace=T), score=sample(25))
ddply(df, .(year), summarise, max.score=max(score))

使用data.table

require(data.table)
dt <- data.table(df, key="year")
dt[, list(max.score=max(score)), by=year]

使用aggregate:

o <- aggregate(df$score, list(df$year) , max)
names(o) <- c("year", "max.score")

使用ave:

df1 <- df
df1$max.score <- ave(df1$score, df1$year, FUN=max)
df1 <- df1[!duplicated(df1$year), ]

编辑：如果有更多列，data.table 解决方案将是最好的（我的意见:)）

set.seed(45)
df <- data.frame(year=sample(2000:2012, 25, replace=T), score=sample(25), 
               alpha = sample(letters[1:5], 25, replace=T), beta=rnorm(25))

# convert to data.table with key=year
dt <- data.table(df, key="year")
# get the subset of data that matches this criterion
dt[, .SD[score %in% max(score)], by=year]

#     year score alpha       beta
#  1: 2000    20     b  0.8675148
#  2: 2001    21     e  1.5543102
#  3: 2002    22     c  0.6676305
#  4: 2003    18     a -0.9953758
#  5: 2004    23     d  2.1829996
#  6: 2005    25     b -0.9454914
#  7: 2007    17     e  0.7158021
#  8: 2008    12     e  0.6501763
#  9: 2011    24     a  0.7201334
# 10: 2012    19     d  1.2493954

【讨论】：

如果我想在过滤结果中保留其他数据列怎么办？例如，假设我有一个名为 study_hours 的第三列，它是我为获得该特定分数而学习的小时数。我想保留包含最高分数的整行。
@user1956609 我已经修改了我的示例以显示如何获取其他列
@user1956609，在这种情况下，我建议您使用编辑后的data.table解决方案。

【解决方案3】：

使用基础包

> df
  year score
1 2000    18
2 2001    22
3 2000    21
> aggregate(score ~ year, data=df, max)
  year score
1 2000    21
2 2001    22

编辑

如果您需要保留其他列，则可以使用 merge 和 aggregate 来获取这些列

> df <- data.frame(year = c(2000, 2001, 2000), score = c(18, 22, 21) , hrs = c( 10, 11, 12))
> df
  year score hrs
1 2000    18  10
2 2001    22  11
3 2000    21  12
> merge(aggregate(score ~ year, data=df, max), df, all.x=T)
  year score hrs
1 2000    21  12
2 2001    22  11

【讨论】：

【解决方案4】：

data <- data.frame(year = c(2000, 2001, 2000), score = c(18, 22, 21))
new.year <- unique(data$year)
new.score <- sapply(new.year, function(y) max(data[data$year == y, ]$score))
data <- data.frame(year = new.year, score = new.score)

【讨论】：

【解决方案5】：

一个班轮，

df_2<-data.frame(year=sort(unique(df$year)),score = tapply(df$score,df$year,max));

【讨论】：