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")

Я хочу обозначить разницу между двумя кривыми в -3, -2, -1, ..., 3. Я попытался использовать толькоtext Функция, в которой я вручную настраиваю координаты по одной, а затем введите разницу между двумя кривыми. Есть ли более эффективный способ сделать это так, чтобы разница между двумя кривыми отображалась четко?