2015-09-20 48 views

回答

1
> t <- table(x) 
> names(t)[which.max(t)] 
[1] "1" 

這將返回最條目的第一個值返回1。要全部歸還它們:

> names(t)[t == max(t)] 
[1] "1" 

這對您的數據也是一樣的。這裏的兩個表達式會有所不同:

> x <- c(1,1,1,2,3,4,4,4,5,6,6,6) 
> t <- table(x) 
> names(t)[t == max(t)] 
[1] "1" "4" "6"