r - 获取矩阵每一行中最大值的列索引

Question

我有一个 6 x 10 矩阵，我必须在其中找到每行最大值的行索引和列索引。

set.seed(75)
amat <- matrix( sample(10, size=60, replace=T), nrow=6)

这给了我矩阵:

     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    3    6    7    7    2    4    3    7    1     4
[2,]    1    9    8    7    2    6   10    9    5     2
[3,]    7   10    8    4   10    5    4    8    4     4
[4,]    4    3    1    1    3    3    9    7    4     2
[5,]    1    8    1    9    9    8    1    3    7     7
[6,]    2    6    7    5    6   10    4    6   10     1

现在，我想逐行导航，并获取每行中最大值的行索引和列索引。

为了获得每一行的最大值，我做了:

apply(amat,1,max)
[1]  7 10 10  9  9 10

如何获取第一次出现最大值的行和列索引？

谢谢

Answer 1

我们可以使用 max.col

 cbind(1:nrow(amat), max.col(amat, 'first'))