R语言_众数

# 创建Get_mode函数用于获取向量的众数
Get_mode=function(x){
  x_freq_table=as.data.frame(table(x))
  max_freq=max(as.vector(x_freq_table[,2]))
  if (max_freq==1) {
    return(FALSE)
    }else{
    x_mode=as.numeric(x_freq_table[x_freq_table[,2]==max_freq,1])
    return(x_mode)
  }
}
#测试
a=c(seq(1,20),seq(10,30),rep(c(1,10),each=3))
a2=c(seq(1,20),seq(11,30),rep(c(1,10),each=3))
a3=seq(1,40)
Get_mode(a)
Get_mode(a2)
Get_mode(a3)

From B