如何從列表列表中刪除一個級別的列表

Question

我在列表中創建了一些列表，並希望能夠讓每個子列表元素成為頂級的單個元素。

例如創建一些虛擬數據：

pp <- lapply(10:15,function(y){
    lapply(10:20,function(z){
        as.data.frame(matrix(rnorm(z*y),nrow=z,ncol=y))
    })  
})

這將創建以下輸出

> summary(pp)
     Length Class  Mode
[1,] 11     -none- list
[2,] 11     -none- list
[3,] 11     -none- list
[4,] 11     -none- list
[5,] 11     -none- list
[6,] 11     -none- list

你還可以在哪里做

> summary(pp[[1]])
      Length Class      Mode
 [1,] 10     data.frame list
 [2,] 10     data.frame list
 [3,] 10     data.frame list
 [4,] 10     data.frame list
 [5,] 10     data.frame list
 [6,] 10     data.frame list
 [7,] 10     data.frame list
 [8,] 10     data.frame list
 [9,] 10     data.frame list
[10,] 10     data.frame list
[11,] 10     data.frame list

結果輸出只會創建一個新列表，其中包含如下內容：

new.pp[[1]] <- pp[[1]][[1]]
new.pp[[2]] <- pp[[1]][[2]]

但是想知道是否有一種智能或更有效的方法可以在列表中有列表時只刪除一級列表....

理想情況下，我正在尋找的是某種為我執行此操作的函數，因此，例如，如果我有多個級別的列表相互嵌套而不是兩個，我可以在每個級別遞歸使用該函數最終將每個元素帶到列表的頂部......

Answer 1

我認為這可以解決問題

new.pp <- unlist(pp,recursive=FALSE)

Answer 2

Tidyverse 方法：

library(purrr)
new.pp <- flatten(pp)