ggplot2中的geom_density

Question

我在ggplot2中创建了下面的密度图，它显示了一个很好的区域分布，但是底部的蓝线和左边的垂直的一小部分以及右边的垂直的绿色和蓝色破坏了图

我用geom_density来绘制下面的图，有没有办法去除上面提到的只有曲线可见？

以下代码：

ggplot(d, aes(x=d$MEI)) + 
  geom_density(data=d, aes(x=d$MEI, group=d$Region, colour = Region),alpha=0.5, adjust=2) + 
  theme(legend.position="bottom")+
  xlab("MEI") +
  ylab("Density")+
  theme(axis.text.y      = element_text(size=14),
        axis.text.x      = element_text(size=14),
        axis.title.y     = element_text(size=14),
        axis.title.x     = element_text(size=14),
        panel.background = element_blank(),
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(),
        axis.line        = element_line(colour = "black"),
        strip.background = element_blank(),
        panel.border     = element_rect(colour = "black", fill = NA)
  )

非常感谢！

stat_density(data=d, geom = "line",aes(x=d$MEI, group=d$Region, colour = Region),adjust=2)+