缺少模式图 - R

Question

我想使用“VIM”包绘制缺失数据的模式。我在剧情中使用了以下代码，

aggr(tr1, col=c('blue','tomato'), numbers=TRUE, sortVars=FALSE, sortCombs=TRUE, combined=TRUE, only.miss= TRUE, labels=names(tr1), cex.axis=.6, prop = FALSE, ylab = "Pattern of missing data")

但我不是没有。每列的缺失值。请帮我解决这个问题。

可重现代码

library(VIM)
tr <- sleep
aggr(tr, col=c('blue','tomato'), numbers=TRUE, sortVars=FALSE, sortCombs=TRUE, combined=TRUE, only.miss= TRUE, labels=names(tr), cex.axis=.6, prop = FALSE, ylab = "Pattern of missing data")

谢谢， 巴拉吉