在 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
我想打印来自 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