假设我有一个这样的数据集：
id <- c(1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3)
foo <- c('a', 'b', 'a', 'a', 'b', 'b', 'b', 'c', 'c', 'a', 'a')
dat <- data.frame(id, foo)
IE，
id foo
1 1 a
2 1 b
3 2 a
4 2 a
5 2 b
6 2 b
7 2 b
8 3 c
9 3 c
10 3 a
11 3 a
对于每个 id，我将如何获得 foo 值的最大重复次数
IE，
id max_repeat
1 1 1
2 2 3
3 3 2
例如，id 2 的 max_repeat 为 3，因为它的 foo (b) 值之一重复了 3 次。
使用tidyverse：
dat %>%
group_by(id, foo) %>% #Grouping by id and foo
tally() %>% #Calculating the count
group_by(id) %>%
summarise(res = max(n)) #Keeping the max count per id
id res
<dbl> <dbl>
1 1. 1.
2 2. 3.
3 3. 2.
dplyr
library(tidyverse)
dat %>%
group_by(id) %>%
summarise(max_repeat = max(tabulate(foo)))
# # A tibble: 3 x 2
# id max_repeat
# <dbl> <int>
# 1 1 1
# 2 2 3
# 3 3 2
data.table
library(data.table)
setDT(dat)
dat[, .(max_repeat = max(tabulate(foo))), by = id]
# id max_repeat
# 1: 1 1
# 2: 2 3
# 3: 3 2
base（可以根据setNames需要更改名称）
aggregate(foo ~ id, dat, function(x) max(tabulate(x)))
# id foo
# 1 1 1
# 2 2 3
# 3 3 2
如果没有包，您可以组合两个aggregate()s，一个带有长度，一个带有最大值。
x1 <- with(dat, aggregate(list(count=id), list(id=id, foo=foo), FUN=length))
x2 <- with(x1, aggregate(list(max_repeat=count), list(id=id), FUN=max))
产量：
> x2
id max_repeat
1 1 1
2 2 3
3 3 2
数据：
dat <- structure(list(id = c(1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3), foo = structure(c(1L,
2L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 1L, 1L), .Label = c("a", "b",
"c"), class = "factor")), class = "data.frame", row.names = c(NA,
-11L))