できました~ヾ(@°▽°@)ノ

> hist(nichijishuekiritsu, xlim=c(-3,3), ylim=c(0,25), xlab="" , ylab="" , main="日次収益率")
> par(new =T)
> plot(function(x) 1/sqrt(2*pi)*exp(-x^2/2),-3,3, type = "l", axes = FALSE, ylab = "", col = 'blue')