R：生成所有元素为行和列的稀疏矩阵

Question

我有一个用户到用户的数据集。它没有将所有用户都设置为 col 和 row。例如，

 U1      U2     T
  1      3      1
  1      6      1
  2      4      1
  3      5      1

u1 和 u2 代表数据集的用户。当我使用以下代码创建稀疏矩阵时，（df-将上述数据集的所有数据保留为数据框）

trustmatrix <- xtabs(T~U1+U2,df,sparse = TRUE)  

   3  4  5  6
1  1  0  0  1
2  0  1  0  0
3  0  0  1  0

因为这个矩阵没有如下行和列中的所有用户。

   1  2  3  4  5  6
1  0  0  1  0  0  1
2  0  0  0  1  0  0
3  0  0  0  0  1  0
4  0  0  0  0  0  0 
5  0  0  0  0  0  0
6  0  0  0  0  0  0

如果我想在稀疏矩阵之后得到上面的矩阵，我该如何在 R 中这样做？

Answer 1

我们可以将列转换为factor，其中levels 为1 到6，然后使用xtabs

df1[1:2] <- lapply(df1[1:2], factor, levels = 1:6)
as.matrix(xtabs(T~U1+U2,df1,sparse = TRUE))
#   U2
#U1  1 2 3 4 5 6
#  1 0 0 1 0 0 1
#  2 0 0 0 1 0 0
#  3 0 0 0 0 1 0
#  4 0 0 0 0 0 0
#  5 0 0 0 0 0 0
#  6 0 0 0 0 0 0

---

或者另一种选择是使用 0 填充扩展索引，然后使用 sparseMatrix

library(tidyverse)
library(Matrix)
df2 <- crossing(U1 = 1:6, U2 = 1:6) %>% 
          left_join(df1) %>% 
          mutate(T = replace(T, is.na(T), 0))
sparseMatrix(i = df2$U1, j = df2$U2, x = df2$T)

或使用spread

spread(df2, U2, T)