在 PDF 的不同页面上打印密度图(格子、鼠标)

Print density plots (lattice, mice) on difference pages on PDF

我想打印来自 mice 包的 densityplot() 的输出(densityplot 方法用于 mids 对象),每个输出到 PDF 的单独页面。对于下面的 MWE,我想在每一页上打印一个图(即第 1 页上的 bmi,然后是第 2 页上的 hyp,然后是第 3 页上的 chi)。

library(mice)

imp <- mice(nhanes)

densityplot(imp)

编辑:

我稍作修改的解决方案(以编程方式执行此操作):

# Which variables had missing observations
imputed_vars <- names(d_imp$method)[d_imp$method != ""]

pdf(file = "./MICE Density Plots.pdf")

# Plot each imputed variable separately
for(var in imputed_vars){
  densityplot(d_imp, formula(paste("~", var)))
}

dev.off()

你的意思是这样的:

imp <- mice(nhanes)
densityplot(imp)
densityplot(imp, ~bmi)
densityplot(imp, ~hyp)
densityplot(imp, ~chl)

BR