Hi,
If there are multiple max values, you will get only the first value with
?which.max().
Using dataset `a` as an example:
a <- structure(list(`1` = c("Mal", "Mahesh", "Tarak", "Pawan", "Charan",
"Prabhas", "Arjun", "Naresh", "Nithin", "Puri"), `2` = 1:10,
`3` = c("Layer", "Actor", "Actor", "Actor", "Actor", "Actor",
"Actor", "Actor", "Actor", "Director"), `4` = c(22L, 45L,
30L, 47L, 32L, 32L, 31L, 29L, 30L, 38L), `5` = c("M", "M",
"M", "M", "M", "M", "M", "M", "M", "M"), `6` = c(100000L,
150000000L, 150000000L, 150000000L, 100000000L, 100000000L,
90000000L, 30000000L, 30000000L, 100000000L)), .Names = c("1",
"2", "3", "4", "5", "6"), class = "data.frame", row.names = c("1",
"2", "3", "4", "5", "6", "7", "8", "9", "10"))
sapply(a,function(x) which.max(table(factor(x,levels=unique(x)))))
# 1.Mal 2.1 3.Actor 4.30 5.M 6.150000000
# 1 1 2 3 1 2
#or
Mode <- function(x) {
ux <- unique(x)
which.max(tabulate(match(x,ux)))}
sapply(a,Mode)
#1 2 3 4 5 6
#1 1 2 3 1 2
#If you want the index of all the max values:
lapply(a,function(x) {h <- table(factor(x,levels=unique(x))); which(h%in%
max(h))})
A.K.
On Thursday, February 6, 2014 4:02 AM, Malyadri Putchakayala
<malyadri.putchakay...@nuevora.com> wrote:
How to find Mode?
h<-table(q$GENDER)
h<-which.max(h)
I am using above code. But I have 10000 Variable Names of Data, Then How to
find (above is find at a time only one mode, I need at a time complete
dataset mode.)
Eg:1000 variable Names,500 Character names,500 Numeric Names
like(Gender,salary,occupation,age......) then how to find mode.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
