如何将列表列表中的值导出到数据框中？

Question

我有一个非常复杂的结构，见下图。我为这个问题苦苦挣扎了很长时间，我真的需要帮助。

这是使我的问题更可重现的示例代码

t <- list(
list(answers = list(list(values = "male"),
                   list(values = "6"),
                   list(values = "9"),
                   list(values = "9"),
                   list(values = "other"))
 ),
list(answers = list(list(values = "145")
                  )
)

我需要的是 answers 中的值（来自每个列表）。

我需要它看起来像一个数据框——每个列表都是列（变量），answers 中第一个列表的每个值显然都是值。像这样

> d <- data.frame("1" = "male", "2" = 6,
+                 "3" = 9, "4.1" = 9,
+                 "4.2" = 8,
+                 "5" = "other",
+                 "6" = 145)
> d

    X1 X2 X3 X4  X5   X6
1 male 6  9  9  other 145

另一个问题是answers 的第一个列表中的值可以包含多个值。而且我真的不知道如何处理它，因为我需要准确地为变量分配它们的值。

所以，我无法想象如何得到这个。直觉上我觉得lapply()可能对我有帮助，但是我不知道如何正确使用。

Answer 1

使用您的样本数据：

results = unlist(lapply(t, "[[", "answers"))
names(results) = paste0("X", seq_along(results))
results = as.data.frame(t(results))
#     X1 X2 X3 X4    X5  X6
# 1 male  6  9  9 other 145

这里的数字是 character 类，您可能希望使用 type.convert(results) 将它们转换为数字（尽管它也会将剩余的字符串转换为 factors）。

Answer 2

棘手的一个。这是我的想法。此外，不提供您的数据的dput 也不是很有帮助。

首先我必须重新创建一个类似于你的数据集（对我来说是额外的工作）：

test <- list(
  list(
    answers = list(
      values = list("6", "8", "4", "11", "18"),
      question = list("some_text_1", "some_text_2", "some_text_3"))
    ),
  list(
    answers = list(
      values = list("male"),
      question = list("some_text_4", "some_text_5", "some_text_6"))
  )
  )
)

通过一些努力，我可以做到这一点：

l1 <- lapply(test, function(x) lapply(x,`[[`, 1))
l2 <- unlist(l1, recursive = FALSE)
l3 <- unlist(l2, recursive = FALSE)

有了这个结果：

> l3
$answers1
[1] "6"

$answers2
[1] "8"

$answers3
[1] "4"

$answers4
[1] "11"

$answers5
[1] "18"

$answers
[1] "male"

或者更简单：

unlist(l1)

但后者失去了结构，所有values 向量最终都成为单个字符向量。 在您的列表中，我认为这将为您提供第 3 个嵌套级别的所有 values 向量作为具有不等长度元素的列表。因为您的 values 向量的长度不相等，所以我可能不会尝试将其强制为数据框。这够近了吗？

更新

随着数据集中的更新，我们现在可以做：

l1 <- lapply(t, `[[`, 1)
l2 <- unlist(l1, recursive = FALSE)
df <- as.data.frame(l2)

这个输出：

> df
  values values.1 values.2 values.3 values.4 values.5
1   male        6        9        9    other      145