更改矩阵的某些值以形成新矩阵

Question

＆＃34;＆＃34;是一个矩阵。

a<-matrix(1:20,5)

我想更改＆＃34; a＆＃34;的第一列进入1以形成一个新的矩阵＆＃34; b＆＃34;，我还需要保持＆＃34; a＆＃34;照原样。

现在我只能通过以下代码达到这个目标：

 b<-a
 b[,1]=1

如何只用一句话代码解决这个问题？

Answer 1

replace(a, col(a) == 1, 1)
#      [,1] [,2] [,3] [,4]
# [1,]    1    6   11   16
# [2,]    1    7   12   17
# [3,]    1    8   13   18
# [4,]    1    9   14   19
# [5,]    1   10   15   20

，在这种情况下，也是cbind(1, a[, -1])。