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