遍历数据框列表，按每10列拼接生成新数据框的实现问题

你的代码核心问题是循环逻辑混乱，同时未正确初始化目标数据框：

1. new_df未提前初始化，直接赋值new_df[,j]会导致意外覆盖或报错
2. while与for嵌套的逻辑错误：每次循环j的列范围时，你会用所有数据框的对应列覆盖new_df的同一列位置，最终只会保留最后一个数据框的列，而非依次拼接

以下分两种常见需求给出正确实现：

需求1：每个数据框取10列，依次横向拼接 #

比如第一个数据框的前10列作为新数据框1-10列，第二个数据框的前10列作为11-20列，以此类推：

# 生成示例数据（保留你的原始代码）
a1<-rnorm(100)
a2<-rnorm(100)
b1<-rnorm(100)
b2<-rnorm(100)
c1<-rnorm(100)
c2<-rnorm(100)

dataframe_list <- vector("list", 5)
for (i in seq_along(dataframe_list)) {
  dataframe_list[[i]] <- rbind(a1,a2,b1,b2,c1,c2)
}

# 正确实现：初始化+循环拼接
new_df <- dataframe_list[[1]][, 1:10]  # 用第一个数据框的前10列初始化
for (i in 2:length(dataframe_list)) {
  # 依次将后续数据框的前10列拼接到右侧
  new_df <- cbind(new_df, dataframe_list[[i]][, 1:10])
}

# 验证结果：6行50列（5个数据框×10列）
dim(new_df)

需求2：每个数据框按10列拆分，所有块按顺序拼接 #

如果你的真实需求是把每个数据框的所有列按10列一组拆分，再把所有组按列表顺序拼接（比如第一个数据框的1-10、11-20…，接着第二个数据框的1-10、11-20…）：

# 拆分每个数据框为10列的子块
all_blocks <- lapply(dataframe_list, function(df) {
  # 生成每10列的起始索引
  start_indices <- seq(1, ncol(df), by = 10)
  # 拆分并返回子块列表
  lapply(start_indices, function(s) df[, s:(s+9)])
})

# 展开所有块并横向拼接
new_df <- do.call(cbind, unlist(all_blocks, recursive = FALSE))

# 验证结果：6行500列（5个数据框×100列）
dim(new_df)

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