列表到数据框

Question

我有一个 select_multiple 问题的结果存储在一个列表中。这来自使用OpenDataKit 收集的数据集

example <- list("a", c("b", "c"), c("d", "e", "f"), c(""))

在下面的记录#4 的示例中，没有答案（意味着NA 用于所有选项）。

我需要从此列表中创建一个数据框，其中选择多个选项中的每个选项都将成为一个新变量。列表中的每个元素事实上的长度不同。

结果应该是这样的：

variable | a   b    c    d     e    f
row1     | 1   0    0    0     0    0
row2     | 0   1    1    0     0    0 
row3     | 0   0    0    1     1    1
row4     | <NA> <NA><NA> <NA><NA> <NA>

我找到了带有 stri_list2matrix 的选项，但这并没有提供预期的结果。

我也试过了

df <-data.frame( lNames <- rep(names(example), lapply(example, length)),
                  lVal <- unlist(example))

得到了同样的结果

arguments imply differing number of rows

请帮忙！

谢谢

Answer 1

您可以为此使用setNames、stack 和dcast：

example <- list("a", c("b", "c"), c("d", "e", "f"), c(""))
example <- setNames(example, seq_along(example))

ex2 <- stack(example)
ex2[ex2$values=='','values'] <- NA

library(reshape2)
dcast(ex2, ind ~ values, fun.aggregate = length)

这将导致：

  ind a b c d e f NA
1   1 1 0 0 0 0 0  0
2   2 0 1 1 0 0 0  0
3   3 0 0 0 1 1 1  0
4   4 0 0 0 0 0 0  1