r - 矩阵用一填充零行

Question

我有一个邻接矩阵 A:

    [1] [2] [3]
[1]  1   0   1
[2]  0   0   0
[3]  0   0   0

我想要一个新的矩阵 B，在所有行中都填充一个，只有零，所以 B:

    [1] [2] [3]
[1]  0   0   0
[2]  1   1   1
[3]  1   1   1

我该怎么做才能做到这一点

Answer 1

由于邻接矩阵是非负的，您可以只测试零 rowSums:

A <- matrix(c(1, 0, 1, 
              0, 0, 0, 
              0, 0, 0), byrow = TRUE, nrow = 3)

B <- A * 0  # 0-matrix same dimensions as A
B[rowSums(A) == 0, ] <- 1