벡터

Question

에서 가장 빈번하게 분수를 식별 내가 분수를 포함하는 벡터가 : 나는 벡터에서 가장 빈번하게 (즉, 대부분의) 수를 결정하고 그 수를 반환하려는

a<-c(0.5,0.5,0.3,0.5,0.2) 

합니다.

table(a) 전체 테이블을 반환하기 때문에 작동하지 않습니다. 0.5 만 반환하고 싶습니다.

동점 일 경우 무작위로 선택하고 싶습니다.

function(x){ 
    a<-tabulate(x,nbins=max(x)); b<-which(a==max(a)) 
if (length(b)>1) {a<-sample(b,1)} else{b} 
} 

그러나,이 분수 작동하지 않습니다 :

나는 정수에 대해이 작업을 수행하는 기능을 가지고있다.

누군가 도움을 줄 수 있습니까? 귀하의 경우와 숫자 하나를 원하는 경우

Answer 1

당신은

names(which.max(table(a))) 

을 사용할 수 있습니다, 다음 넥타이 케이스를 랜덤 숫자

as.numeric(names(which.max(table(a)))) 

에 강요, 테이블을 무작위로 추가 할 수 있습니다

as.numeric(names(which.max(sample(table(a))))) #note this works only if length(unique(a)) > 1