Adicionando texto a uma plotagem

x <- seq(-3,3,0.01)
y1 <- dnorm(x,0,1)
y2 <- 0.5*dnorm(x,0,1)
plot(x,y1,type="l",bty="L",xlab="X",ylab="dnorm(X)")
points(x,y2,type="l",col="red")
polygon(c(x,rev(x)),c(y2,rev(y1)),col="skyblue")

Quero rotular a diferença entre as duas curvas em -3, -2, -1, ..., 3. Tentei usar apenas otext função em que ajusto manualmente as coordenadas uma a uma e depois digito a diferença entre as duas curvas. Existe uma maneira mais eficiente de fazer isso para que a diferença entre as duas curvas seja exibida claramente?