Normal Density function plotted

gistfile1.txt

pl1 <- ggplot(df, aes(x)) +
  geom_rect(aes(xmin = .8, xmax = 1.2, ymin = 0, ymax = 0.4, fill = "lightblue", alpha = .3)) +
  stat_function(fun = dnorm, n = 200, args = list(mean = 0, sd = 1)) +
  #geom_density(color = "darkblue", size = 1) +
  theme_minimal(base_size = 12) +
  theme(legend.position = "none")  +
  labs(y = "Density of participants (n = 200)", x = "Ability on a Task (SD)") +
  scale_x_continuous(breaks = c(-3, -2, -1, 0, 1, 2, 3), limits = c(-3.5, 3.5))
  
ggsave("~/Desktop/abilitychallange_s1.png", pl1, bg = "white", width = 8, height = 4)