Question

我有一个列表列表（qlist），qlist中的列表有不同的长度（参见示例 - 标签列表），我希望将所选元素（tags和question_id，skip 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)))

R中的data.frame列表列表

1 个答案: