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