R “mids”对象的ggplot中的条形图

尽管已经使用过几次ggplot，但我真的很难在这个问题上取得任何进展。我想在没有使用ggplot的恶劣尝试的情况下，最容易解释我想做什么，下面的内容也很难看，但这是我目前能做的最好的：(

require（鼠标）
插补几点

您需要有
hyp
或相关变量作为一个因子。它最容易删除
执行此操作之前，
NA
值
facet\u wrap
（一个变量）或
facet\u grid
（一个或多个变量）将为您很好地安排绘图
比如说

ldt <-complete(impute,"long", include=TRUE)

ggplot(ldt[!is.na(ldt$hyp),], aes(x= factor(hyp))) + 
  geom_bar() + 
  facet_wrap(~.imp, nrow = 1) +
  xlab('Observed') +
  scale_y_continuous(expand = c(0,0))


ldt <-complete(impute,"long", include=TRUE)

ggplot(ldt[!is.na(ldt$hyp),], aes(x= factor(hyp))) + 
  geom_bar() + 
  facet_wrap(~.imp, nrow = 1) +
  xlab('Observed') +
  scale_y_continuous(expand = c(0,0))

all_long <- melt(ldt, c(".imp",".id","hyp"))
ggplot(all_long[!is.na(all_long$hyp),], aes(x= factor(hyp))) + 
  geom_bar() + 
  facet_grid(variable ~.imp, scales = 'free_y') +
  xlab('Observed') +
  scale_y_continuous(expand = c(0,0))