如何在R中找到向量的模式？

就像均值和中位数一样，R中没有内置函数可以找到模式。

为此，我们可以利用以下用户创建的功能

> Modes <- function(x) {
   ux <- unique(x)
   tab <- tabulate(match(x, ux))
   ux[tab == max(tab)]
}

示例

> x<-c(3,2,3,4,3,2,1,2,3,45,6,7,6,4,3,32,4,5,6,4,4,3,4,5,4,4,3,6)
> Modes(x)
[1] 4

我们创建了一个称为模式的函数，因为数据可以具有多个模式，如下所示：

> y<-c(3,2,3,4,3,2,1,2,3,45,6,7,6,4,3,32,4,5,6,4,4,3,4,5,4,4,3,3)
> Modes(y)
[1] 3 4