替换每列的最大值

Question

我有一个矩阵，我希望将每列的最大值替换为-1。我怎么能在R？ 我试过了，

 set.seed(14)
 mat<- matrix(sample(10,20,replace=TRUE),nr=5)
 apply(mat,2,which.max)
 [1] 3 2 1 4

我不知道如何更换矩阵。如何处理列中的重复最大值？ 谢谢。

Answer 1

尝试：

 mat[which(apply(mat, 2, function(x) x == max(x,na.rm=TRUE)))] <- -1