Chapter 6 Baby Names

Install here package to help manage file paths

install.packages("here")
install.packages("tidyverse")
install.packages("tidytext")
install.packages("babynames")

Load tidyverse and here packages

library(tidyverse)
library(here)
library(babynames)

## Warning: package 'babynames' was built under R version 4.3.3

6.1 Bens over time

babynames |>
  filter(name %in% c("Ben", "Benjamin", "Benji")) |> 
  group_by(year, sex) |> 
  summarize(total_ben = sum(n)) |> 
  ggplot() +
  geom_line(aes(x = year, y = total_ben)) +
  facet_wrap(~sex)

## `summarise()` has grouped output by 'year'. You can override using
## the `.groups` argument.

6.2 Babies over time

How many babies are there overall?

babynames |>
  #filter(name %in% c("Ben", "Benjamin", "Benji")) |> 
  group_by(year, sex) |> 
  summarize(total_ben = sum(n)) |> 
  ggplot() +
  geom_line(aes(x = year, y = total_ben)) +
  facet_wrap(~sex)

## `summarise()` has grouped output by 'year'. You can override using
## the `.groups` argument.