D06

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6      ✔ purrr   0.3.4 
## ✔ tibble  3.1.8      ✔ dplyr   1.0.10
## ✔ tidyr   1.2.1      ✔ stringr 1.4.1 
## ✔ readr   2.1.2      ✔ forcats 0.5.2 
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

1.

dnorm(1, mean = 0, sd = 1, log = FALSE)

## [1] 0.2419707

2.

dnorm_2 <- function(x) dnorm(x, mean = 60, sd = 8, log = FALSE)

3.

ggplot() +
  xlim(30, 90) +
  geom_function(fun=dnorm_2)

4.

df = tribble(~x, 45, 50, 55, 60, 65, 70)
df %>% mutate(y = dnorm_2(x)) -> df
df

5.

ggplot(df) +
  xlim(30, 90) +
  geom_function(fun=dnorm_2) +
  geom_rect(xmin=45, xmax=50, ymin=0, ymax=dnorm_2(45), fill = "light blue", color = "black", alpha = 0.1) +
  geom_rect(xmin=50, xmax=55, ymin=0, ymax=dnorm_2(50), fill = "light blue", color = "black") +
  geom_rect(xmin=55, xmax=60, ymin=0, ymax=dnorm_2(55), fill = "light blue", color = "black", alpha = 0.1) +
  geom_rect(xmin=60, xmax=65, ymin=0, ymax=dnorm_2(60), fill = "light blue", color = "black", alpha = 0.1) +
  geom_rect(xmin=65, xmax=70, ymin=0, ymax=dnorm_2(65), fill = "light blue", color = "black", alpha = 0.1) +
  geom_point(aes(x, y))