r - 将熔化的矩阵转换为 R 中的矩阵

Question

我有一个融化的矩阵A：

A =
1 1 1
2 1 0
2 2 1
3 1 0
3 2 0
3 3 1

我想将其转换为 B 矩阵：

B:
1  0  0
0  1  0
0  0   1

这个矩阵是对称的。

我们可以使用“reshape”包轻松融化矩阵。我们怎么能反过来呢？

使用 for 循环很容易，但速度太慢。

B <- matrix(0,nrow=3,ncol=3)

for(i in 1:nrow(A))
{
    B[A[i,1],A[i,2]] = A[i,3]
}

Answer 1

B <- matrix(0,nrow=3,ncol=3)
B[ A[, 1:2] ] <- A[,3]

我们在这里不需要 steenkin' 循环。