R语言计算众数

计算众数，通过不同的方式实现：

#计算众数
a<-sample(1:10,10,replace = TRUE)
b<-rep(0,10)
#################################
#方式1、方式2：借助向量b实现。
for(i in 1:length(a)){
  b[a[i]]=b[a[i]]+1  #借助b实现，值对应索引
}
#观察下a和b的值
a
b
######方式1
which.max(b)  #不好计算由重复的众数，两个及以上众数
#####方式2
#方式1的缺陷：只能找出来一个众数
which(b==max(b))   #众数
max(b)#众数的个数
#借助b的缺陷，只能计算整数集合
##################################
#方式3、方式4：借助R语言自带函数实现
#####方式3
u<-unique(a)
m<-match(a,u)
t<-tabulate(m)
m<-which.max(t)
u[m]
#方式4：支持多个众数
#方式3的缺陷：只能找出来一个众数
u <- unique(a)
t <- tabulate(match(a, u))
u [t== max(t)]