R:在没有对称匹配的矩阵中重新编码单元格

Question

我有一个 0 和 1 的邻接矩阵，表示并列提名。有些提名是不互惠的，所以矩阵是不对称的。

如果单元格值没有对称匹配，我想将单元格值从 1 重新编码为 0。

小矩阵示例:

     [,1] [,2] [,3] [,4]
[1,]    0    1    0    1
[2,]    0    0    1    0
[3,]    0    0    0    1
[4,]    1    0    1    0

所需的输出:

     [,1] [,2] [,3] [,4]
[1,]    0    0    0    1
[2,]    0    0    0    0
[3,]    0    0    0    1
[4,]    1    0    1    0

Answer 1

首先是数据，然后是单行代码。将 0/1 视为逻辑并将矩阵与其转置进行“与”。 +() 强制转换为整数，技巧就完成了。

x <- scan(text="    0    1    0    1
    0    0    1    0
    0    0    0    1
    1    0    1    0")
x <- matrix(x, nrow = 4, byrow = TRUE)

y <- +(x & t(x))
y
#>      [,1] [,2] [,3] [,4]
#> [1,]    0    0    0    1
#> [2,]    0    0    0    0
#> [3,]    0    0    0    1
#> [4,]    1    0    1    0

^{由 reprex package 创建于 2022-02-09| (v2.0.1)}