각 행의 최대 열

Question

저는 초보자이기 때문에 사과를 드릴 수있는 샘플 데이터 프레임을 만들 수 없습니다. 그러나, 나는 세균 지역 사회 분석을하고 있으며 각 열에 대한 종과 각 행에 대한 각 샘플을 가지고있는 테이블을 가지고 있습니다. 각 열은 각 종에 대한 식별자입니다. 데이터 프레임 내에는 각 표본에 대한 종의 존재 량이 있습니다. 나의 목표는 각 샘플 (행)에 대해 가장 풍부한 종 (컬럼)을 식별하는 것이다. 나는 가장 유용한 종 목록 컬럼 식별자를 가진 샘플 (행)을 가진 데이터 프레임을 만드는 것이 가장 유용 할 것이라고 생각한다. 반복 I 've 시도 (phyloseq 패키지를 사용했지만이 패키지없이 사용할 수 있음).

beagle <- names(sort(taxa_sums(top.pdy.phyl),T, function(x) which(max==x))) 
beagle2 <- names(taxa_sums(top.pdy.phyl),T, function(x) colnames(which.max(top.pdy.phyl)))) 

아무 도움이됩니다. 고맙습니다!

Answer 1

에 대해 어떻게 :

names(top.pdy.phyl)[ apply(top.pdy.phyl, 1, which.max) ] 

및

apply(top.pdy.phyl, 1 , max)