基于月份子集循环执行MICE插补时遇'*tmp*'未找到错误求助

错误原因 #

1. 管道语法误用：原代码中airquality %>% filter(Month == i) %>%后直接写赋值语句，管道输出未被正确接收，导致dplyr无法识别后续操作，触发object '*tmp*' not found错误。
2. 插补对象错误：始终用完整的airquality数据集执行插补，没有使用按月份过滤后的子集，完全偏离分月插补的逻辑。
3. 结果存储逻辑错误：用空数据框的索引[[i]]直接赋值，不符合数据框的操作规则，容易引发结构混乱。
4. 文件名不规范：生成的文件名缺少.csv后缀，导致文件无法被正确识别为CSV格式。

修正后的代码 #

data("airquality")
library(mice)
library(dplyr)

# 获取唯一月份列表
month_list <- unique(airquality$Month)

# 用列表存储每个月份的插补结果，操作更灵活
imputed_list <- list()

for (i in month_list) {
  # 按月份过滤出子集，存入临时变量
  monthly_subset <- airquality %>% filter(Month == i)
  
  # 对当前月份子集执行MICE插补
  imputed_obj <- mice(monthly_subset, m = 1, maxit = 1, meth = "norm", seed = 3985)
  
  # 提取插补后的完整数据集
  imputed_data <- as.data.frame(complete(imputed_obj))
  
  # 将结果存入列表
  imputed_list[[as.character(i)]] <- imputed_data
  
  # 保存为规范的CSV文件
  write.csv(imputed_data, file = paste0("Imputation_", i, ".csv"), row.names = FALSE)
}

# 将所有月份的插补结果合并为一个完整数据框
initial_imputed_complete <- bind_rows(imputed_list)

关键改动说明 #

• 替换管道错误用法：将过滤后的子集存入临时变量，避免管道语法冲突。
• 修正插补目标：使用分月子集执行MICE插补，真正实现按月份独立插补的需求。
• 改用列表存储：空数据框直接赋值易出错，列表能更稳妥地存储多份独立数据集。
• 完善文件命名：添加分隔符和.csv后缀，确保文件格式正确。
• 合并结果：用bind_rows()快速合并列表中的所有数据框，得到最终完整数据集。

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