在R中有效地将列表列为data.frame

Question

我有一个列表( qlist )，在qlist中包含不同长度的列表(参见示例标记列表)，我希望将它的选定元素(标记和question_id，跳过creation_date)转换为data.frame，其中标记是1列，对应的question_id的第二列。

qlist <- list()

qlist[[1]] <- list(tags = list( "r", "parallel-processing"), creation_date = "1459613802",
question_id = "36375667")
qlist[[2]] <- list(tags = list( "r"), creation_date = "1459613803", question_id = "36375668")

我通过以下代码成功地做到了这一点

library(plyr)
df_qst_tags <- ldply(qlist, function(x){   as.data.frame(cbind(tag = unlist(x$tags), question_id = x$question_id)) }, .progress = "win")

结果如出一辙:标签在第一列中，对应的question_id在第二列中。

> df_qst_tags
                  tag question_id
1                   r    36375667
2 parallel-processing    36375667
3                   r    36375668

不幸的是，我的qlist非常大，我的代码太慢了。如何以更有效的方式重写解决方案？

Answer 1

提取标签并找到它们的几何图形

> tags = lapply(qlist, "[[", "tags")
> lengths(tags)
[1] 2 1

您将取消tags列表，以获得单个标记的向量。现在提取其他元素，例如question_id，并按照

data.frame(tag=unlist(tags, use.names=FALSE),
           question_id = rep(
               vapply(qlist, "[[", character(1), "question_id"),
               lengths(tags)))