R语言遍历数据框多列生成新列时遇错误的解决方案咨询

核心思路：锁定目标列，按顺序遍历相邻列对 #

先把数据框中所有PopXX格式的列提取出来并按年份排序，确保后续遍历的顺序正确：

# 提取所有以Pop开头的列名
pop_cols <- grep("^Pop", names(df), value = TRUE)
# 按年份排序（如果列名存在非自然排序情况，比如Pop2010排在Pop9后面，可额外调整排序逻辑）
pop_cols <- sort(pop_cols)

基础循环实现（适配中小型数据集） #

循环遍历每一对相邻列，按需求计算新列值（示例为后一年人口减前一年，可替换为你的自定义计算逻辑）：

for (i in 1:(length(pop_cols)-1)) {
  current_col <- pop_cols[i]
  next_col <- pop_cols[i+1]
  # 自定义计算逻辑，这里示例为年份间人口差值
  calc_result <- df[[next_col]] - df[[current_col]]
  # 给新列命名为直观格式，比如Diff86_87
  new_col_name <- paste0("Diff", substr(current_col, 3,4), "_", substr(next_col, 3,4))
  # 将计算结果添加到数据框
  df[[new_col_name]] <- calc_result
}

报错原因解析 #

你遇到的replacement has 0 rows, data has 10错误，本质是循环生成的计算结果长度为0，和数据框的10行不匹配。大概率是循环范围设置错误（比如遍历到了不存在的列索引），或者提取列时未拿到正确列，导致calc_result为空。

大型数据集优化方案（tidyverse批量处理） #

如果数据集规模较大，for循环效率偏低，推荐用dplyr+purrr的批量操作，速度更快且代码更简洁：

library(dplyr)
library(purrr)

# 生成相邻列对的列表
col_pairs <- map2(pop_cols[-length(pop_cols)], pop_cols[-1], ~list(.x, .y))

# 批量计算并添加新列
df <- df %>%
  mutate(!!!set_names(
    map(col_pairs, ~df[[.x[[2]]]] - df[[.x[[1]]]]),
    map_chr(col_pairs, ~paste0("Diff", substr(.x[[1]],3,4), "_", substr(.x[[2]],3,4)))
  ))

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