R 如何提取出现最大值的矩阵的特定行和列 M5.7.2

更新：此代码现在打印存在多个最大值的情况下的结果

我对你的函数做了一些修改，从x中选择第x个值。我相信这就是你希望找到的。为了输出它，您希望如何对函数进行修改，希望从我发布的代码中可以清楚地看到如何做到这一点

---

M5.7.2代码不会返回多个最大值的索引，它只返回第一个最大值行和列索引。例如，如果您使用
set.seed（2）
M5.7.2，我已经更新了代码以考虑多个最大值。我本来没有考虑过这个案子。
M5.7.2<-matrix(sample(1:4,16,replace=TRUE),nrow=4,ncol=4)
Q5.7.2<-function(X, rownum=FALSE){
  if(rownum==TRUE)
    z <-(1:nrow(X))[apply(X == max(X),1,any)]
 
  x<-which(M5.7.2 == max(M5.7.2), arr.ind = TRUE)
  list(z,x,M5.7.2)
  

}
Q5.7.2(M5.7.2,TRUE)