如何对含缺失值的数据集执行MICE插补？附示例代码

以下是针对你的数据集执行MICE插补的示例代码，你可根据需求调整插补方法、迭代次数等参数：

# 加载mice包（未安装的话先执行：install.packages("mice")）
library(mice)

# 定义你的数据集
data <- structure(list(
  age = c(20, 21, 30, NA, NA, NA, 50, 61, 60, 63, NA, NA, NA),
  sex = c(NA, 0, NA, 1, NA, 1, 0, NA, NA, NA, NA, 0, 1),
  diabetes = c(NA, NA, 1, 1, NA, 1, NA, 1, 1, 1, 0, 0, NA),
  hypertension = c(1, NA, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1),
  hypercholesterolemia = c(1, 1, NA, 1, 0, 0, NA, 1, NA, 1, 0, 0, 0)
), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -13L))

# 执行MICE插补，默认设置完成全插补
imputed_data <- mice(data, m = 5, maxit = 50, method = "pmm", seed = 123)

# 提取其中一组插补后的完整数据集（可选择1到m中的任意组）
completed_data <- complete(imputed_data, 1)

# 查看结果
head(completed_data)

参数说明（可按需调整）：

• m：生成的插补数据集数量，默认5
• maxit：每个插补链的迭代次数，默认50
• method：插补方法，pmm（预测均值匹配）适配混合类型变量，也可针对不同变量指定专属方法
• seed：设置随机种子保证结果可重复

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