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的值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）