plot - 多边形不着色到 x 轴

Question

我正在尝试在图表上绘制两个分布，并且我正在使用多边形函数来着色

x <- seq(-0.1,0.1,length=1000) 
plot(x = x,                   
 y = dnorm(x, 2, 1),              
 type = "l",     
 col = "white",
 axes = FALSE,
 mgp = c(2, 2, 2), 
 ylim=c(0,30),                         
 frame.plot=TRUE,
 xlab = "  ",                         
 ylab = "  ",
 font.main = 1,
 main=paste("  "),
 lwd=2,)    

polygon(x,dnorm(x, 0, 0.019),col=6,border = NULL)
polygon(x,dnorm(x, 0.08, 0.02),col=rgb(0.8,0.8,0.8,0.5),border = T)

不幸的是，第二个分布没有正确绘制，如附图所示。我知道这是因为多边形函数连接了分布的第一个和最后一个点，但我不确定如何指定我希望分布的最右边部分在 y 上返回零-axis 在连接这两个点之前。

提前致谢。