如何处理列表列表中的所有子元素？

Question

这似乎是一个简单的问题，但我被卡住了！

如果我有相同列表的列表，我怎样才能解决子列表中的所有元素？

 a <- list(a = "ayy", b = "bee", c = "cee") 
 b <- list(a = "1", b = "2", c = "3")       
 l1 <- list(a,b)                            

我希望能够返回l1$b或l1[TRUE]$b，但此语法似乎不起作用。

我期待得到这样的东西：

[[1]]         
[1] "bee"     

[[2]]         
[1] "2"       

在for循环中做起来似乎很容易，但是感觉R-y不够。

Answer 1

lapply(1:length(l1),function(x)l1[[x]]$b)
[[1]]
[1] "bee"

[[2]]
[1] "2"