ggplot直方图显示额外的灰色条

Question

所以我试图通过变量compage来显示这个直方图。代码I使用的是：

hist.wrinko.age <- ggplot(ESSdata.oldage3, aes(wrinco2,fill=compage))
                        + theme(legend.position = "right")
                        + geom_bar(aes(y=..density..), binwidth=1, position="dodge")
                        + labs(x="WRINCO by age group", y = "Density")
                        + scale_x_continuous(breaks=seq(0, 10, 1)
                          )

它工作正常，但直方图如下所示：

基本上，图例显示了2个变量，但直方图显示了3个。

我不知道第三条灰线来自哪里 - 我的代码有问题吗？

Answer 1

当有要绘制的数据（x和y值）时会添加灰色条，但fill变量为NA。

从数据中省略NA的最简单方法是na.omit函数

ggplot(na.omit(ESSdata.oldage3), ...