多边形不对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上返回零。这两点之前的轴。

谢谢。