2

我需要从列表的特定子列表创建数据框。我知道这个特定子列表中的数据结构是不变的。对于一个列表，我发现 do.call() 可以解决问题：

lst<-list(l1="aa", l2="ab", l3="ac")
fun.sublst1<-function(n) {
    a<-c("a",1,n)
    return(a)
 }
lstoflst<-lapply(lst, fun.sublst1)
do.call(rbind,lstoflst) # create a data frame from a list

但是，如果我有一个包含列表的列表并且我想遍历特定的子列表，我将无法使用 do.call(rbind,lstolflst$A) 创建数据框。

# section list of list
fun.sublst2<-function(n) {
    a<-c("a",1,n)
    b<-c("b",2)
    return(list(A=a,B=b))
}
lstoflst<-lapply(lst, fun.sublst2)
# result should create a dataframe consisting of all sublists $A
t(cbind(lstoflst$l1$A,lstoflst$l2$A,lstoflst$l3$A))

使用笨拙的代码，它看起来像这样。

dat<-t(as.data.frame(lstoflst[[1]][[1]]))
for(i in 2:length(lstoflst)) {
     dat<-rbind(dat,t(lstoflst[[i]][[1]]))
}

有没有一种优雅的方法可以用基础 R 来做到这一点？我猜 do.call(rbind,lstoflst, ???) 与其他一些参数会做。我想我需要传递索引或索引函数。有什么帮助吗？

我搜索了，但我的搜索词没有运气。应该早就解决了。无论如何，希望你能指导我。谢谢

编辑：更改了标题，因为我的示例仅生成矩阵。

4

2 回答 2

4

如果您知道所需列表组件的名称（在本例中为“A”），则可以将列表中的每个列表作为子集：

lsSub <- lapply(lstoflst, "[[", "A")

然后rbind那个

do.call(rbind, lsSub)
#    [,1] [,2] [,3]
# l1 "a"  "1"  "aa"
# l2 "a"  "1"  "ab"
# l3 "a"  "1"  "ac"

但正如 Joran 指出的那样，这不是data.frame

于 2012-05-31T13:08:04.110 回答
1

这看起来很笨拙，但有效。

do.call(rbind, 
  lapply(lstoflst, function(x){xx <- x[names(x) %in% "A"]; do.call(rbind, xx)})
)

  [,1] [,2] [,3]
A "a"  "1"  "aa"
A "a"  "1"  "ab"
A "a"  "1"  "ac"

也许有人可以用 做一些聪明的事情rapply，但我无法让它工作。

于 2012-05-31T11:14:53.050 回答