如何在 R 嵌套列表中取消列出任意级别？

Question

我有一个包含三个级别的嵌套列表。我需要取消列出中间级别，但我还没有找到简单的方法。

例如

df1 <- data.frame(X = sample(100),
                  Y = sample(100))
df2 <- data.frame(X = sample(50),
                  Y = sample(50))
df3 <- data.frame(X = sample(150),
                  Y = sample(150),
                  Z = sample(150)) 
df4 <- data.frame(X = sample(20),
                  Y = sample(20),
                  Z = sample(20))

list1 <- list(A = df1, B = df2)
list2 <- list(A = df3, B = df4)

masterList <- list(list1, list2)

我想要实现的是

newMasterList <- list(A = rbind(df1,df2), B = rbind(df3,df4))

我已经尝试了 unlist() 与这两个递归选项，但它们没有产生预期的结果：

newMasterListFAIL1 <- lapply(seq_along(masterList), function(x) unlist(masterList[[x]], recursive = F))

newMasterListFAIL2 <- lapply(seq_along(masterList), function(x) unlist(masterList[[x]]))

Answer 1

您可以从data.table 包中快速尝试rbindlist（但您的data.frame 列表将转换为data.table 列表）：

library(data.table)

newMasterList = lapply(masterList, rbindlist)

来自@akrun 的基本 R 解决方案：

newMasterList = lapply(masterList, function(x) do.call(rbind, x))

还有来自@David Arenburg 的优雅解决方案

library(tidyr)

newMasterList = lapply(masterList, unnest)