如何循环抽取多DataFrame行生成4个独立DataFrame（兼容行数差异）

核心思路 #

给每个源DataFrame的每一行标记对应的目标DF编号（按1→2→3→4→1的循环规则），合并所有带标记的行后，按编号拆分即可得到目标DF。这种方法自动忽略已取完的源数据，因为那些源没有后续行可标记，完全符合需求。

具体实现代码 #

1. 构造测试数据（替换为你的实际数据即可）

dat1 <- data.frame(id = 1:10, value = rnorm(10))
dat2 <- data.frame(id = 1:10, value = rnorm(10))
dat3 <- data.frame(id = 1:10, value = rnorm(10))
dat4 <- data.frame(id = 1:7, value = rnorm(7))

2. 为每个源数据添加目标DF标记

add_target_group <- function(df) {
  # 计算每行对应的目标DF编号：第i行对应 ((i-1) %% 4) + 1
  df$target <- ((seq(nrow(df)) - 1) %% 4) + 1
  return(df)
}

# 给四个源数据分别添加标记
dat1 <- add_target_group(dat1)
dat2 <- add_target_group(dat2)
dat3 <- add_target_group(dat3)
dat4 <- add_target_group(dat4)

3. 合并并拆分得到目标DF

# 合并所有带标记的数据
combined_data <- rbind(dat1, dat2, dat3, dat4)

# 按标记拆分，同时移除标记列
result_list <- split(combined_data[, !names(combined_data) %in% "target"], combined_data$target)

# 赋值到DF1-DF4
DF1 <- result_list[[1]]
DF2 <- result_list[[2]]
DF3 <- result_list[[3]]
DF4 <- result_list[[4]]

备选方法（逐行分配，适合小数据量） #

如果数据量较小，也可以直接逐行分配到目标DF：

# 初始化空DF
DF1 <- DF2 <- DF3 <- DF4 <- data.frame()

# 定义分配逻辑
distribute_rows <- function(df) {
  for (row_idx in seq(nrow(df))) {
    target <- ((row_idx - 1) %% 4) + 1
    current_row <- df[row_idx, , drop = FALSE]
    switch(target,
           DF1 <<- rbind(DF1, current_row),
           DF2 <<- rbind(DF2, current_row),
           DF3 <<- rbind(DF3, current_row),
           DF4 <<- rbind(DF4, current_row))
  }
}

# 处理每个源数据
distribute_rows(dat1)
distribute_rows(dat2)
distribute_rows(dat3)
distribute_rows(dat4)

验证说明 #

以dat4为例，它的7行对应目标编号依次是1,2,3,4,1,2,3，分配完成后无剩余行；dat1-3的第8-10行仍会按规则分配（第8行→DF4，第9行→DF1，第10行→DF2），完全满足“取完的源不再参与后续分配”的要求。

内容的提问来源于stack exchange，提问作者Shaxi Liver