R script for analyzing Scottish babynames

scottish_babynames.R

library(dplyr)
library(readr)
library(ggplot2)

dat <- read_csv("babies-first-names-all-names-all-years2.csv")

# pull out babies born in 1998
dat98 <- filter(dat, yr == 1998) %>%
  group_by(sex) %>%
  filter(rank <= 5)

top10 <- semi_join(dat, dat98 %>% select(sex, FirstForename),
                    c("sex", "FirstForename"))

ggplot(top10, aes(yr, number, colour = FirstForename)) +
  geom_line() + facet_wrap(~sex)