05-Report-Parameters.qmd

---
title: "`r params$name`"
format:
  html:
    code-tools:
      source: repo
params: 
  name: "Garrett"
---

```{r setup}
#| include: false
library(tidyverse)
library(babynames)
library(glue)

name_data <- babynames |> 
  filter(name == params$name) |> 
  mutate(sex = case_when(
    sex == "M" ~ "Male", 
    sex == "F" ~ "Female"
  ))

n <- sum(name_data$n)

most <- name_data |> 
  filter(n == max(n))

most_sex <- most |> 
  pull("sex") |> 
  switch("Male" = "boys", "Female" = "girls")

sex <- name_data |> 
  group_by(sex) |> 
  summarise(n = sum(n)) |> 
  filter(n == max(n)) |> 
  pull("sex") |> 
  switch("Male" = "boy's", "Female" = "girl's")
```

There have been **`r n`** children named `r params$name`. The name `r params$name` was most popular in `r most$year`, when there were `r most$n` `r most_sex` named `r params$name`. `r params$name` is traditionally a `r sex` name.

```{r}
#| echo: false
name_data |> 
  ggplot() +
  geom_ribbon(mapping = aes(x = year, ymax = prop, fill = sex), ymin = 0, alpha = 0.5) +
  labs(
    title = glue("Popularity of the name {params$name}"), 
    subtitle = glue("The proportion of boys and girls named {params$name}, 1880-2017"), 
    caption = "Data from the US Social Security Administration",
    y = "proportion"
  ) +
  theme_bw()
```