r - 按组列出的最常见值(众数)

Question

这个问题已经有答案了:

Create a variable capturing the most frequent occurence by group (3 个回答)

How to find the statistical mode? (35 个回答)

已关闭 6 年前。

我正在尝试按组查找最常见的值。在以下示例数据框中:

df<-data.frame(a=c(1,1,1,1,2,2,2,3,3),b=c(2,2,1,2,3,3,1,1,2))  
> df  
  a b  
1 1 2  
2 1 2  
3 1 1  
4 1 2  
5 2 3  
6 2 3  
7 2 1  
8 3 1  
9 3 2  

我想添加一列“c”，当其值按“a”分组时，该列在“b”中出现次数最多。我想要以下输出:

> df  
  a b c  
1 1 2 2    
2 1 2 2    
3 1 1 2    
4 1 2 2    
5 2 3 3    
6 2 3 3    
7 2 1 3    
8 3 1 1   
9 3 2 1    

我尝试使用 table 和 tapply 但没有得到正确的结果。有没有快速的方法来做到这一点？
谢谢!

Answer 1

根据 Davids 的评论，您的解决方案如下:

Mode <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

library(dplyr)
df %>% group_by(a) %>% mutate(c=Mode(b))

请注意，当 df$a 为 3 时，对于平局，b 的众数为 1 .