R语言计算众数

举报
superdont 发表于 2018/12/28 19:12:46 2018/12/28
【摘要】 计算众数,通过不同的方式实现:#计算众数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的值ab######方式1which....

计算众数,通过不同的方式实现:

#计算众数
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)]


【版权声明】本文为华为云社区用户原创内容,转载时必须标注文章的来源(华为云社区)、文章链接、文章作者等基本信息, 否则作者和本社区有权追究责任。如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。