R可以求众数吗？

我用mode(x)时，得出的是[1] "numeric"
应该怎样求众数？
谢谢

which.max(table(x))
瞎做的，呵呵

famousid 发表于 2012-2-25 11:49
which.max(table(x))
瞎做的，呵呵

高！
呵呵，但有没有直接的办法呢？如求中位数一样：median(x)

mode函数对应的包是dprep，是在R版本2.10.0之前建的。看了一下2.14.0里面已经没有这个包了 你直接用mode肯定算不出来。
关于众数的讨论 可以看下统计之都Cos里面的讨论文章 对你应该有帮助：
http://cos.name/cn/topic/15112

superhugo 发表于 2012-2-25 16:12
mode函数对应的包是dprep，是在R版本2.10.0之前建的。看了一下2.14.0里面已经没有这个包了 你直接用mode肯定 ...

谢谢，看来，现在R确实没有直接求众数的命令了。
而且证明，沙发上的老兄提出的办法是最好的了。

耕耘使者 发表于 2012-2-25 17:33
谢谢，看来，现在R确实没有直接求众数的命令了。
而且证明，沙发上的老兄提出的办法是最好的了。

嗯 确实是的
要是想简单点，直接在EXCEL里面求也行 =MODE(xx : xx)
对连续性变量 实际上对应的就是概率密度曲线的顶点位置吧。

明白了，谢谢几位朋友

famousid 发表于 2012-2-25 10:33
which.max(table(x))
瞎做的，呵呵

30  31  47  50  52  52  56  60  63  70 70 110
如果是这样的数据，众数有两个，就不是太好搞了。

根据上面大家提到的方法，本人写一个简单的函数：
getMode <- function(x){
  if(is.numeric(x)==T){
    return(which(table(x)==max(table(x))))
  }
  else cat('the input must be numeric')
}

核心用which(table(x)==max(table(x)))来得到所有的众数

简单点的做法：

1. x=sample(1:10,100,replace=TRUE)
   
2. table(x)[table(x)==max(table(x))]

复制代码