R返回向量中的最大计数

Question

如何在数字向量中返回重复次数最多的数字？

例如我想在

中返回1

AsyncTask

Answer 1

> t <- table(x)
> names(t)[which.max(t)]
[1] "1"

这将返回包含最多条目的第一个值。要全部归还：

> names(t)[t == max(t)]
[1] "1"

这与您的数据相同。这两个表达式会有所不同：

> x <- c(1,1,1,2,3,4,4,4,5,6,6,6)
> t <- table(x)
> names(t)[t == max(t)]
[1] "1" "4" "6"