library(tidyverse)
(ggplot()
+ geom_function(fun = \(y) dnorm(y, mean = 0, sd = 1),
linewidth = 1,
aes(col='1')
)
+ geom_function(fun = \(y) dnorm(y, mean = 0, sd = 2),
linewidth = 1,
aes(col='2')
)
+ geom_function(fun = \(y) dnorm(y, mean = 0, sd = 3),
linewidth = 1,
aes(col='3')
)
+xlim(-8,8)
+ labs(x = 'y',y = 'f(y)', color=expression(sigma))
+ theme_classic()
)