R在列表中自动绑定多个df答案

【问题标题】：R Automatically Rbind multiple df in listR在列表中自动绑定多个df
【发布时间】：2020-02-12 03:27:41
【问题描述】：

我有一个如下所示的数据框。

set.seed(0L)
AB_df = data.frame(replicate(2,sample(0:130,1624,rep=TRUE)))
BC_df = data.frame(replicate(2,sample(0:130,1656,rep=TRUE)))
DE_df = data.frame(replicate(2,sample(0:130,1656,rep=TRUE)))
FG_df = data.frame(replicate(2,sample(0:130,1729,rep=TRUE)))

df_list = list(AB_df, BC_df, DE_df, FG_df)
names(df_list) = c("AB_df", "BC_df", "DE_df", "FG_df")

set.seed(5)
subs <- 4
df_list =  lapply(df_list, 
                    function(df){
                      idx <- gl(n = subs,round(nrow(df)/subs)) 
                      split(df, sample(idx))})

for (a in 1:length(df_list)) {
  names(df_list[[a]]) = c(paste0("S", seq(1:4)))}

它由嵌套列表"AB_df", "BC_df", "DE_df", "FG_df" 组成。这些嵌套列表中的每一个都包含 4 个样本（S1、S2、S3 和 S4）。

我现在想重新绑定这些样本，但总是留下其中一个。所以对于df_list$AC_df，我想要有4个数据帧，称为"S1_S2_S3", "S1_S2_S4", "S1_S3_S4", "S2_S3_S4"。因此，我不想将每个子样本都放在自己的数据框中，而是想以所有可能的方式组合其中的 3 个。 "S1_S2_S3" 应该包含df_list$AC_df$S1, df_list$AC_df$S2, df_list$AC and df$S3, 的数据，而不是df_list$AC_df$S4. 的数据

我尝试创建每个 df 名称的列表，并希望遍历它们...但我不确定这是一个好主意：

level1 = paste("df_list", names(df_list), sep = "$")
samples = c(paste0("S", seq(1:4)))
df_names = paste(rep(level1, each = length(samples)), samples, sep = "$")

idx = c(1:4)
df_names = list (AB = df_names[idx], CD = df_names[idx+4], EF = df_names[idx+8], GH = df_names[idx+12])

更新：

我想我已经接近解决方案，但它仍然无法正常工作。我试过这个：

save = list()

for (a in 1:length(df_list)) {
  for (b in 1:length(df_list[[a]])) {
    print (b)
    save[[b]] = df_list[[a]][-b]}}

这至少可以帮助我删除不需要的数据框。但是循环只保存最后一个 FG_df 的结果...

【问题讨论】：

有什么特别的原因说明df_list 中的每个数据帧必须超过 1500 行而不是 5-10 行？
对不起，我当然可以选择更小的数字，但在我的真实数据中是这样的 1:1。
对FG_df 使用 1728（4 的倍数）而不是 1729，您的代码不会发出警告。

标签： r list dataframe rbind

【解决方案1】：

考虑使用combn 渲染三者的所有组合，然后运行嵌套的lapply 以连接所需的样本数据帧：

sample_combos <- combn(paste0("S", c(1:4)), 3, simplify=FALSE)

sample_df_list <- lapply(sample_combos, function(s)
                       lapply(df_list, function(lst) do.call(rbind, lst[s]))
                  )

names(sample_df_list) <- lapply(sample_combos, function(s) paste(s, collapse="_"))

Online demo

或者，combn 有一个函数参数：

# UNNAMED LIST OF DFs
sample_combos <- combn(paste0("S", c(1:4)), 3, function(s)
                   lapply(df_list, function(lst) do.call(rbind, lst[s])), 
                       simplify = FALSE
                  )

输出

sample_combos
# List of 4
# $ S1_S2_S3:List of 4
# ..$ AB_df:'data.frame':   1218 obs. of  2 variables:
#   .. ..$ X1: int [1:1218] 117 118 82 100 27 85 16 50 63 64 ...
# .. ..$ X2: int [1:1218] 12 122 103 90 45 69 34 7 129 10 ...
# ..$ BC_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 69 47 48 53 11 0 55 101 128 112 ...
# .. ..$ X2: int [1:1242] 35 96 18 75 103 98 118 27 37 122 ...
# ..$ DE_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 115 67 53 40 118 114 75 127 42 32 ...
# .. ..$ X2: int [1:1242] 117 25 101 106 12 73 88 92 65 5 ...
# ..$ FG_df:'data.frame':   1297 obs. of  2 variables:
#   .. ..$ X1: int [1:1297] 125 32 83 12 120 44 11 22 63 26 ...
# .. ..$ X2: int [1:1297] 43 30 78 53 102 103 121 111 27 100 ...
# $ S1_S2_S4:List of 4
# ..$ AB_df:'data.frame':   1218 obs. of  2 variables:
#   .. ..$ X1: int [1:1218] 117 118 82 100 27 85 16 50 63 64 ...
# .. ..$ X2: int [1:1218] 12 122 103 90 45 69 34 7 129 10 ...
# ..$ BC_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 69 47 48 53 11 0 55 101 128 112 ...
# .. ..$ X2: int [1:1242] 35 96 18 75 103 98 118 27 37 122 ...
# ..$ DE_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 115 67 53 40 118 114 75 127 42 32 ...
# .. ..$ X2: int [1:1242] 117 25 101 106 12 73 88 92 65 5 ...
# ..$ FG_df:'data.frame':   1297 obs. of  2 variables:
#   .. ..$ X1: int [1:1297] 125 32 83 12 120 44 11 22 63 26 ...
# .. ..$ X2: int [1:1297] 43 30 78 53 102 103 121 111 27 100 ...
# $ S1_S3_S4:List of 4
# ..$ AB_df:'data.frame':   1218 obs. of  2 variables:
#   .. ..$ X1: int [1:1218] 117 118 82 100 27 85 16 50 63 64 ...
# .. ..$ X2: int [1:1218] 12 122 103 90 45 69 34 7 129 10 ...
# ..$ BC_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 69 47 48 53 11 0 55 101 128 112 ...
# .. ..$ X2: int [1:1242] 35 96 18 75 103 98 118 27 37 122 ...
# ..$ DE_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 115 67 53 40 118 114 75 127 42 32 ...
# .. ..$ X2: int [1:1242] 117 25 101 106 12 73 88 92 65 5 ...
# ..$ FG_df:'data.frame':   1296 obs. of  2 variables:
#   .. ..$ X1: int [1:1296] 125 32 83 12 120 44 11 22 63 26 ...
# .. ..$ X2: int [1:1296] 43 30 78 53 102 103 121 111 27 100 ...
# $ S2_S3_S4:List of 4
# ..$ AB_df:'data.frame':   1218 obs. of  2 variables:
#   .. ..$ X1: int [1:1218] 75 8 26 23 50 65 35 50 44 78 ...
# .. ..$ X2: int [1:1218] 1 11 5 67 11 4 75 118 43 93 ...
# ..$ BC_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 103 7 116 17 88 111 77 8 108 50 ...
# .. ..$ X2: int [1:1242] 76 118 97 80 53 121 21 115 106 5 ...
# ..$ DE_df:'data.frame':   1242 obs. of  2 variables:
#   .. ..$ X1: int [1:1242] 109 49 94 58 80 111 71 80 78 115 ...
# .. ..$ X2: int [1:1242] 89 16 120 107 67 16 17 87 53 19 ...
# ..$ FG_df:'data.frame':   1297 obs. of  2 variables:
#   .. ..$ X1: int [1:1297] 99 112 100 127 26 11 64 23 29 8 ...
# .. ..$ X2: int [1:1297] 58 4 20 114 0 24 93 0 124 47 ...

【讨论】：

谢谢，但我收到一个错误：do.call(rbind, lst[s]) 中的错误：找不到对象's'。我认为它可能是 lst[i] 而不是 lst[s]
我做了一点改动，效果很好！！谢谢！！
哎呀，谢谢你的收获。演示虽然是正确的。我还添加了一个替代方案，因为您可以在 combn 中使用 FUN 参数，但对于未命名列表。