R：如何获得最高值 colwise 及其各自的行名？

Question

我想获得我的 df 所有列中的最高值（比如说最高的 3）。对我来说重要的是还要获得这些值的行名。这是我数据的一个子集：

structure(list(BLUE.fruits = c(12803543, 3745797, 19947613, 0, 130, 4), 
BLUE.nuts = c(21563867, 533665, 171984, 0, 0, 0),
BLUE.veggies = c(92690, 188940, 34910, 0, 0, 577),
GREEN.fruits = c(3389314, 15773576, 8942278, 0, 814, 87538),
GREEN.nuts = c(6399474, 1640804, 464688, 0, 0, 0), 
GREEN.veggies = c(15508, 174504, 149581, 0, 0, 6190),
GREY.fruits = c(293869, 0, 188368, 0, 8, 0),
GREY.nuts = c(852646, 144024, 26592, 0, 0, 0), 
GREY.veggies = c(2992, 41267, 6172, 0, 0, 0)),
.Names = c("BLUE.fruits", "BLUE.nuts", "BLUE.veggies", 
"GREEN.fruits", "GREEN.nuts", "GREEN.veggies", "GREY.fruits", 
"GREY.nuts", "GREY.veggies"), row.names = c("Afghanistan", "Albania", 
"Algeria", "American Samoa", "Angola", "Antigua and Barbuda"),
class = "data.frame")

到目前为止，我已经为第一列试过了：

as.data.frame(x[,1][order(x[,1], decreasing=TRUE)][1:10]

但是，我没有得到原始行名，我需要一种方法 apply/lapply 来遍历所有列（~ 150 列）。想法？谢谢

Answer 1

这可能会有所帮助： Print one column of data frame with row names

因此，如果您稍微调整一下代码，您会得到：（长而难看的代码行 =），那个 returns 列表，你想要的输出格式是什么 - 基于你的 "lapply" 标签？）

lapply(1:dim(df)[2], function(col.number) df[order(df[, col.number], decreasing=TRUE)[1:3], col.number, drop = FALSE])

Answer 2

你可以写一个列最大值函数，colMax。

colMax <- function(data) sapply(data, max, na.rm = TRUE)

R：如何获得最高值 colwise 及其各自的行名？

R: How to get highest values colwise and their respective rownames?

r

max

apply

lapply