R语言递归合并列异常排查：245列数据框求和合并问题

需求说明 #

用户有一个包含245列的data.frame，需要完成以下求和操作：

• 将所有奇数索引列（第1、3、5...245列）按行求和，得到结果的第1列
• 将所有偶数索引列（第2、4、6...244列）按行求和，得到结果的第2列
  但编写的revisar函数仅返回重复两次的第2列结果，需要排查代码错误并适配245列的场景。

测试用示例代码 #

set.seed(123) # 设置随机种子确保结果可复现
cl1<-sample(1:4,10,replace=TRUE)
cl2<-sample(1:4,10,replace=TRUE)
cl3<-sample(1:4,10,replace=TRUE)
cl4<-sample(1:4,10,replace=TRUE)
cl5<-sample(1:4,10,replace=TRUE)
cl6<-sample(1:4,10,replace=TRUE)
dat<-data.frame(cl1,cl2,cl3,cl4,cl5,cl6)

原函数错误分析 #

原revisar函数存在以下关键问题：

• 循环范围错误：while(i<=2)仅循环2次，完全无法覆盖245列的批量处理需求
• 结果覆盖问题：每次循环都重新赋值col <- cbind(colu, colu)，最终只保留最后一次循环（i=2）的计算结果，所以返回重复两次的第2组求和值
• 列索引逻辑错误：变量j和l仅每次+1，无法遍历所有需要求和的奇数/偶数列，仅处理了前6列中的部分列
• 求和逻辑错误：每次仅取3列求和，不符合“所有奇数/偶数列累加”的需求

修正后的函数代码 #

revisar <- function(a) {
  # 提取所有奇数索引的列（1,3,5...直到最后一列）
  odd_cols <- a[, seq(1, ncol(a), by = 2)]
  # 提取所有偶数索引的列（2,4,6...直到最后一列）
  even_cols <- a[, seq(2, ncol(a), by = 2)]
  
  # 将NA值替换为0，避免求和时出现NA
  odd_cols[is.na(odd_cols)] <- 0
  even_cols[is.na(even_cols)] <- 0
  
  # 按行求和，生成结果列
  result_col1 <- rowSums(odd_cols)
  result_col2 <- rowSums(even_cols)
  
  # 合并为两列的data.frame返回
  return(data.frame(奇数列求和 = result_col1, 偶数列求和 = result_col2))
}

函数验证 #

用示例数据测试修正后的函数：

# 调用函数
result <- revisar(dat)
# 查看结果
print(result)

修正后的优势 #

• 自动适配任意列数：不管是6列还是245列，都能自动识别所有奇数/偶数列，无需手动调整循环参数
• 高效简洁：使用seq生成索引、rowSums完成按行求和，比手动循环更高效且可读性更强
• 正确处理NA值：统一将NA替换为0后再求和，避免结果出现NA
• 返回结构正确：准确生成两列的求和结果，符合需求

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