R中如何求众数

R中没有直接求众数的函数 

q1 <- c(3,7,5,4,5,6,7,8,6,5) 

> table(q1) 
q1 
3 4 5 6 7 8 
1 1 3 2 2 1 

> max(table(q1)) 
[1] 3 

> table(q1) == max(table(q1)) 
q1 
    3     4     5     6     7     8 
FALSE FALSE  TRUE FALSE FALSE FALSE 

> names(table(q1)) 
[1] "3" "4" "5" "6" "7" "8" 

> as.numeric(names(table(q1))) 
[1] 3 4 5 6 7 8 

> as.numeric(names(table(q1)))[table(q1) == max(table(q1))] 
[1] 5

转载自：http://jobar.iteye.com/blog/2127790