每行的最大列
Max Column for each Row
我是R新手,无法为您制作示例数据框,对此深表歉意。但是,我正在进行细菌群落分析,并且我有一个 table,其中每一列都有物种,每一行都有每个样本。每列是每个物种的标识符。数据框中是每个样本的物种丰度。我的目标是为每个样本(行)确定最丰富的物种(列)。我认为制作一个包含具有最丰富物种列标识符的样本(行)的数据框将是最有用的!
我试过的迭代(使用 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))))
如有任何帮助,我们将不胜感激!谢谢!
怎么样:
names(top.pdy.phyl)[ apply(top.pdy.phyl, 1, which.max) ]
和
apply(top.pdy.phyl, 1 , max)
我是R新手,无法为您制作示例数据框,对此深表歉意。但是,我正在进行细菌群落分析,并且我有一个 table,其中每一列都有物种,每一行都有每个样本。每列是每个物种的标识符。数据框中是每个样本的物种丰度。我的目标是为每个样本(行)确定最丰富的物种(列)。我认为制作一个包含具有最丰富物种列标识符的样本(行)的数据框将是最有用的! 我试过的迭代(使用 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))))
如有任何帮助,我们将不胜感激!谢谢!
怎么样:
names(top.pdy.phyl)[ apply(top.pdy.phyl, 1, which.max) ]
和
apply(top.pdy.phyl, 1 , max)