R列表到稀疏矩阵

Question

我尝试使用 R 从 mongodb 加载数据，但我发现查询结果是非结构化数据，这是一个凌乱的列表，结果如下所示：

 df
[[1]]
list()
[[2]]
[[2]][[1]]
[1] "vector1"
[[2]][[2]]
[1] "vector2"
[[3]]
list()
[[4]]
list()
[[5]]
list()
[[6]]
[[6]][[1]]
[1] "vector1"
[[6]][[2]]
[1] "vector2"
[[6]][[3]]
[1] "vector3"

我尝试将列表转换为矩阵，就像这样：

vector1 vector2 vector3
   0       0       0
   1       1       0
   0       0       0
   0       0       0
   0       0       0
   1       1       1 

我尝试使用SparseMatrix() 和sapply()，但都失败了。而且我必须手动创建上面的数据框以明确问题。

Answer 1

一个选项是mtabulate 来自qdapTools

library(qdapTools)
mtabulate(df)
#   vector1 vector2 vector3
#1       0       0       0
#2       1       1       0
#3       0       0       0
#4       0       0       0
#5       0       0       0
#6       1       1       1

---

或者如果我们需要一个base R 选项，我们可以循环遍历list 元素，将其转换为factor，并将levels 指定为unique 中的unique 元素，使用table，然后转置 (t) 输出。

Un1 <- unique(unlist(df))
t(sapply(df, function(x) table(
              if(length(x)==0)
                 factor(x,levels = Un1) 
              else factor(unlist(x), levels=Un1))))
#     vector1 vector2 vector3
#[1,]       0       0       0
#[2,]       1       1       0
#[3,]       0       0       0
#[4,]       0       0       0
#[5,]       0       0       0
#[6,]       1       1       1

数据

df <- list(list(),  list("vector1", "vector2"), list(), 
      list(), list(), list("vector1", "vector2", "vector3") )