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

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'))