リスト内のデータフレームを取得する方法は？

Question

次のコードを使用してシミュレーションを実行しています。 x1からaを取得するにはどうすればよいですか？私は以下のlapplyを試しましたが、うまくいかないようです。

library(parallel) 
clusterEvalQ(cl,library(evir)) 
set.seed(0) 
system.time(
x1 <- parLapply(cl, 1:100000, 
    function(i) { 
     n1 <- rpois(1,4) 
     n2<- rpois(1,7) 
     list(data.frame(a=rexp(n1, rate=0.1),a1=rexp(n1, rate=0.6)), 
      data.frame(b=rexp(n2, rate=0.7),b1=rexp(n2, rate=0.6))) 

    } 
) 
) 

y1<-lapply(x1, '[', , "a") 

Answer 1

y1 <- lapply(x1, function(x) x[[1]][["a"]]) 

データフレームの数が知られており、より一般的には1に等しいと仮定し、ベクターの必要なリストを与える：

y1 <- Filter(Negate(is.null), sapply(unlist(x1, rec = FALSE), `[[`, "a"))