Nałóż normalną krzywą na histogram w R

Udało mi się znaleźć w Internecie, jak nałożyć normalną krzywą na histogram w R, ale chciałbym zachować normalną „częstotliwość” osi y histogramu. Zobacz dwa segmenty kodu poniżej i zauważ, jak w drugim, oś y zostaje zastąpiona przez „gęstość”. Jak mogę utrzymać tę oś Y jako „częstotliwość”, tak jak w pierwszym wykresie.

JAKO BONUS: Chciałbym również oznaczyć regiony SD (do 3 SD) na krzywej gęstości. Jak mogę to zrobić? próbowałemabline, ale linia rozciąga się na górę wykresu i wygląda brzydko.

g = d$mydata
hist(g)

g = d$mydata
m<-mean(g)
std<-sqrt(var(g))
hist(g, density=20, breaks=20, prob=TRUE, 
     xlab="x-variable", ylim=c(0, 2), 
     main="normal curve over histogram")
curve(dnorm(x, mean=m, sd=std), 
      col="darkblue", lwd=2, add=TRUE, yaxt="n")

Zobacz, jak na powyższym obrazku oś y to „gęstość”. Chciałbym, żeby to było „częstotliwość”.

questionAnswers(3)

yourAnswerToTheQuestion