如何在R中自动填充空白列并计算相邻两列的总和

原代码核心问题 #

• 循环范围设置错误：遍历到最后一列时，i+1会超出数据框的列数范围，触发索引报错
• 赋值逻辑错误：每次循环都给df_cum$V1同一个字段赋值，会反复覆盖之前的计算结果，最终只能保留最后一组两列的求和值

修正实现方案 #

1. 循环版（适配你的原有写法逻辑）

# 初始化结果数据框
df_cum <- data.frame()
# 仅遍历奇数位置的列索引，最大索引不超过总列数-1避免越界
for (i in seq(1, ncol(df)-1, by = 2)) {
  # 计算当前两列的总和，追加到结果数据框
  current_sum <- sum(df[,i] + df[,i+1])
  df_cum <- rbind(df_cum, data.frame(
    # 按V1、V2...规则命名列
    !!paste0("V", (i+1)/2) := current_sum
  ))
}

如果需要结果存入列表，调整写法如下：

# 初始化结果列表
result_list <- list()
for (i in seq(1, ncol(df)-1, by = 2)) {
  result_list[[paste0("V", (i+1)/2)]] <- sum(df[,i] + df[,i+1])
}

2. 向量化版（代码更简洁，运行效率更高）

# 提取所有奇数位置的列索引
odd_col_idx <- seq(1, ncol(df)-1, by = 2)
# 批量计算每两列的总和，直接生成结果数据框
df_cum <- as.data.frame(
  t(colSums(df[,odd_col_idx] + df[,odd_col_idx + 1]))
)
# 按规则重命名列
colnames(df_cum) <- paste0("V", 1:ncol(df_cum))

特殊场景处理 #

如果你的原始数据集总列数为奇数，想要单独计算最后一列的总和，可在上述代码运行结束后追加如下逻辑：

if (ncol(df) %% 2 != 0) {
  # 数据框格式追加
  df_cum[[paste0("V", ncol(df_cum)+1)]] <- sum(df[,ncol(df)])
  # 如果是列表格式则用下面的写法
  # result_list[[paste0("V", length(result_list)+1)]] <- sum(df[,ncol(df)])
}

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