对于每一行,返回最大值的列名,同时删除关系

Question

我有这些数据:

x = c(1,1,3, 3, 2)
y = c(1,2,1, 1, 2)
z = c(1,1,2, 3, 7)

data <- data.frame(x, y, z)

我想得到一个向量,指示每行中最高值的列号; 除去领带; 或表明与NA的联系.

我试过过which.max:

HighestIncludingTies <- apply(data, 1, which.max)

虽然这并不标记与NA(或类似的东西)的联系.

非常感谢任何帮助或指导!

Answer 1

这是尝试使用max.col:

HighsNoTies <- max.col(data,"first")
replace(HighsNoTies, HighsNoTies != max.col(data,"last"), NA)
#[1] NA  2  1 NA  3