R语言按固定列数分组unlist生成dataframe的列赋值报错问题

• 索引逻辑错位：你用seq(1, length(fl), by=50)生成的序列1, 51, 101 ... 351是原数据框fl的列分组起始位置，但代码直接将这些值作为新数据框flw的列索引。flw仅设置了8列，首次赋值i=1对应flw第1列无异常，第二次i=51时直接向flw第51列写入数据，中间2-50列没有赋值，直接触发“新列写入后存在空洞”的报错。
• 效率问题：原代码写入时未加use.names = FALSE，unlist返回的向量会携带列名前缀，额外占用内存，不影响结构但会拖慢运行速度。

效率最高的写法是用列表存储逐组处理的结果，最后统一转成目标dataframe，不需要提前申请全空的NA矩阵占用内存：

# 生成分组的起始列位置
col_start_seq <- seq(1, ncol(fl), by = 50)
# 预初始化和分组数量等长的空列表，用来存每组unlist后的结果
result_store <- vector("list", length = length(col_start_seq))

# 逐组处理列
for (group_idx in seq_along(col_start_seq)) {
  start_col <- col_start_seq[group_idx]
  end_col <- start_col + 49
  # 取对应列范围unlist，关闭名称输出，最终长度为17532*50=876600，和预期行数匹配
  result_store[[group_idx]] <- unlist(fl[, start_col:end_col], use.names = FALSE)
}

# 列表转成目标8列dataframe
flw <- as.data.frame(result_store)

如果坚持使用提前预建空dataframe的写法，只需要新增一个计数器，不再直接复用原数据的列起始值作为新df的列索引即可：

flw <- data.frame(matrix(NA, ncol = 8, nrow = 876600))
col_start_seq <- seq(1, ncol(fl), by = 50)
# 新增计数器，追踪当前要给新df的第几列赋值
new_col_pos <- 1

for (start_col in col_start_seq) {
  end_col <- start_col + 49
  flw[, new_col_pos] <- unlist(fl[, start_col:end_col], use.names = FALSE)
  new_col_pos <- new_col_pos + 1
}

运行完成后可通过两个维度确认输出符合预期：

• ncol(flw)返回8
• nrow(flw)返回876600

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