Part 1: Babyname Trend

baby_name <- "Audrey"
baby_sex <- "F"

single_name <- babynames %>% 
  filter(name==baby_name & sex==baby_sex)

ggplot(data=single_name, mapping = aes(x=year, y=prop)) + 
  geom_line() +
  xlim(c(1880, 2014)) +
  ylim(c(0, NA)) +
  xlab("Year") +
  ylab(paste("Prop. of ", baby_sex, " born with name ", baby_name, sep=""))

The name Audrey, which peaked in popularity around the 1930’s has seen a resurgence in the past two decades. I hypothesize that for many women who became mothers in the past 20 years, the name Audrey was a family name of a grandmother or great grandmother and was passed down to a new generation, which in part catalyzed this bump in popularity of the name.The gap between the peaks is about 80 years, which is roughly 2-3 generations. Audrey Hepburn, arguably the most famous Audrey of late, was born in 1929. She could not have caused the first bump in popularity, but it is also possible that a renewed interest in Hepburn as a cultural icon has contributed to the rise in popularity in recent years.