使用 colnames & apply 返回数据框行中第一个出现的第二大值

Question

假设我有一个 df

> editor
          A  B  C  D  E  F  G  H  I  J
User1     1  0  5  6  5  6  5  6  2  6
User2     0  5  4  6  4  5  5  1  7  5

我想在上面的行中存储第一个出现的第二大值的列名。预期结果

> editor
          A  B  C  D  E  F  G  H  I  J  2nd_highest
User1     1  0  5  6  5  6  5  6  2  6      C
User2     0  5  4  6  4  5  5  1  7  5      D

我试过了 edited$2nd_highest <- colnames(edited)[apply(edited, 1, which.max)+1]但效果不佳。

有什么想法吗？

Answer 1

这里尝试使用代数来实现这一点，以保持向量化并避免按行操作(尽管它仍然进行类似于 apply 的矩阵转换)。这里的想法是找到最大值 - 然后从数据集中减少它，然后转换为 log(乘以 -1 后)这将导致最大值成为 -Inf(表示最小值)，然后执行 1/result 以从剩下的值中找到最大值。

indx <- max.col(1/log((editor - editor[cbind(1:nrow(editor), 
                max.col(editor))]) * -1), ties.method = "first")
names(editor)[indx]
# [1] "C" "D"