Одна вещь, которую вы можете попробовать, - это получить вмененный dataset
в виде data.frame и просто использовать обычные функции построения графиков.Сначала получите наборы данных, включая исходный набор данных с пропущенными значениями (imp является объектом mice.mids, т. Е. Результатом запуска мышей)
impL <- complete(imp,"long",include = T)
Затем добавьте пустышку, указывающую, какие наборы данных вменяются
impL$Imputed <- factor(impL$.imp >0,labels = c("Observed","Imputed"))
Тогда вы можете просто использовать функции построения графиков для каждой переменной.Это дает то преимущество, что вы можете создавать более приятные сюжеты.Например, используя ggplot
(пакет ggplot2) для создания барплота по категориальной переменной:
ggplot(impL[which(!is.na(impL$var1)),],aes(x = var1)) +
geom_bar(aes(y = ..prop.., group = Imputed)) + facet_wrap(Imputed ~ ,ncol=1,nrow=2)
!is.na
включен, чтобы избежать построения графика NA.var1
- это переменная, которую вы хотите построить.Для непрерывной переменной вы можете создать график плотности.
ggplot(impL, aes(x = var2, colour = Imputed)) + geom_density()
Чтобы посмотреть на все уникальные значения, вы можете добавить group = .imp
в скобках aes.Надеюсь, это поможет