如何为另一列中的每个唯一值返回列的最大值？ [复制]

Question

这个问题在这里已经有了答案：

Select 每组最大值的行(17个答案)

去年关闭。

aggregate(df$count, list(df$sport, df$color), sum)

聚合返回以下数据框，但我只想返回每种颜色的最大计数：

Sport      Color     Count
Baseball   Blue      5
Football   Blue      10
Basketball Blue      7
Baseball   Red       6
Football   Red       9
Basketball Red       13

我希望代码返回：

Sport      Color     Count
Football   Blue      10
Basketball Red       13

因为足球在蓝色组中的人数最多，而篮球在红色组中的人数最多。

Answer 1

也许您可以尝试subset + ave

> subset(df,ave(Count,Color,FUN = max)==Count)
       Sport Color Count
2   Football  Blue    10
6 Basketball   Red    13

数据

structure(list(Sport = c("Baseball", "Football", "Basketball", 
"Baseball", "Football", "Basketball"), Color = c("Blue", "Blue",
"Blue", "Red", "Red", "Red"), Count = c(5L, 10L, 7L, 6L, 9L,
13L)), class = "data.frame", row.names = c(NA, -6L))

Answer 2

另一种基本选择：

do.call(rbind, by(df, df$Color, function(z) z[which.max(z$Count),]))
#           Sport Color Count
# Blue   Football  Blue    10
# Red  Basketball   Red    13

或者一个整洁的版本：

library(dplyr)
df %>%
  group_by(Color) %>%
  slice(which.max(Count)) %>%
  ungroup()
# # A tibble: 2 x 3
#   Sport      Color Count
#   <chr>      <chr> <int>
# 1 Football   Blue     10
# 2 Basketball Red      13