如何按每n个元素分割含12个data frame的列表并生成新data frame

假设你的原始列表叫my_list，包含12个data frame，下面两种方法都能帮你拆分出指定的子集：

方法一：用split快速拆分（推荐） #

先构造一个示例列表方便测试：

# 生成含12个data frame的示例列表
my_list <- lapply(1:12, function(x) data.frame(id = x, value = rnorm(5)))

然后用split结合gl函数分组拆分：

# 计算分组数（12/3=4组）
group_num <- length(my_list) %/% 3
# 拆分列表，得到包含4个子列表的大列表
split_result <- split(my_list, gl(group_num, 3))
# 给每个子列表命名为subset1_my_list、subset2_my_list...
names(split_result) <- paste0("subset", seq_along(split_result), "_my_list")
# 将子列表导出到全局环境，直接调用命名即可
list2env(split_result, .GlobalEnv)

执行完后，你就能直接用subset1_my_list（前3个元素）、subset2_my_list（4-6个）等对象了。

方法二：循环手动赋值（更直观） #

如果觉得上面的方法有点抽象，用循环手动计算索引也能实现：

# 同样用示例列表测试
my_list <- lapply(1:12, function(x) data.frame(id = x, value = rnorm(5)))
# 计算总组数
group_num <- length(my_list) %/% 3

# 循环生成每个子集
for (i in 1:group_num) {
  start_pos <- (i - 1) * 3 + 1
  end_pos <- i * 3
  # 赋值到全局环境，命名为subsetX_my_list
  assign(paste0("subset", i, "_my_list"), my_list[start_pos:end_pos])
}

两种方法都能得到你要的结果，split方法更简洁高效，循环方法逻辑更直白，按需选就行。

内容的提问来源于stack exchange，提问作者Alis Mohd