R语言嵌套循环仅执行子循环一次？数据清洗输出异常求助

1. 数据初始化与循环逻辑混乱：

   • 初始创建了带空列的output数据框，且未在每个工作表循环中重置，导致后续所有工作表的清洗列都累加绑定，完全偏离“每个工作表独立输出9列”的需求。
   • sheetlist和columnlist用as.list创建无必要，虽不报错，但向量格式更适合循环遍历。

2. Excel写入参数错误：

   • 使用xlsx::write.xlsx时，append=TRUE会直接在现有文件末尾添加新工作表，此时指定sheetindex=i是无效参数，无法控制工作表位置。
   • 第一次写入时未移除初始空列，导致输出的第一个工作表首列为空值，与预期的清洗数据混淆。

3. 潜在的读取与清洗逻辑隐患：

   • 依赖qpcR包的内部函数cbind.na（带三个冒号的内部函数不建议公开使用），可能引发版本兼容问题。

library(xlsx)
library(dplyr)

# 定义工作表索引和要处理的列索引（改用向量更直观）
sheet_indices <- 1:4
col_indices <- c(1,2,3,4,11,12,13,14,15)
input_path <- "C:\\Users\\WangShiqin\\Desktop\\data all required.xlsx"
output_path <- "C:\\Users\\WangShiqin\\desktop\\cleaned.xlsx"

# 处理每个工作表
for (i in sheet_indices) {
  # 读取当前工作表数据
  page <- read.xlsx(input_path, sheetIndex = i, header = TRUE)
  
  # 初始化临时数据框存储当前工作表的清洗结果
  cleaned_sheet <- data.frame()
  
  # 处理每一列
  for (j in col_indices) {
    # 选择目标列
    current_col <- page %>% dplyr::select(all_of(j))
    # 识别异常值
    outliers <- boxplot(current_col, plot = FALSE)$out
    # 移除异常值
    cleaned_col <- current_col %>% filter(!.data[[names(current_col)]] %in% outliers)
    # 合并列（自动对齐行，补NA）
    cleaned_sheet <- dplyr::bind_cols(cleaned_sheet, cleaned_col)
  }
  
  # 写入Excel：第一个工作表直接创建文件，后续添加新工作表
  if (i == 1) {
    write.xlsx(cleaned_sheet, output_path, sheetName = paste("Sheet", i), row.names = FALSE)
  } else {
    write.xlsx(cleaned_sheet, output_path, sheetName = paste("Sheet", i), append = TRUE, row.names = FALSE)
  }
}

• 替换内部函数：用dplyr::bind_cols替代qpcR:::cbind.na，避免依赖未公开的内部函数，提升代码稳定性。
• 异常值处理优化：若需保留原始行索引（仅移除异常值所在行），可改用filter配合列名，代码更易读。
• 包加载精简：仅加载必要的包（如xlsx和dplyr），减少冗余依赖。

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