R Notebook

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

library(babynames)

library(tidyverse)
library(ggplot2)
library(wordcloud2)

library(babynames)
View(babynames)

babynames %>%
  filter(year == 1993, sex == "F") %>%
  mutate(rank = row_number()) %>%
  filter(name == "Ashley")

Ashley, unsurprisingly, is the second most popular girl’s name in 1993 (the year I was born). 34,850 girls were named Ashley in 1993. The name was truly an epidemic.

babynames %>%
  filter(year == 1993, sex == "F") %>%
  select(name, n) %>%
  top_n(100, n) %>%
  wordcloud2(size = .5, shape = "pentagon", color = "blue") + WCtheme(3)

Ashley is obviously the second most popular name in 1993, as represented in this delightful word cloud. Jessica took the lead by a slight 138 names.

babynames %>%
  filter(name == "Ashley", sex == "F") %>%
  mutate(percent = round(prop * 100, 1)) %>%
  ggplot(aes(x = year, y = percent)) +
  geom_line(color = "green")

“Ashley” didn’t become a popular name until the late 1960s, and even then, it took another 15 years before peaking (consistently) as a top-10 name for roughly twenty years.

babynames %>%
  filter(name == "Ashley", sex == "F") %>%
  top_n(10, prop) %>%
  arrange(-prop)

Above are the ten years in which “Ashley” was the most popular as a name, ranked fom highest to lowest. This table shows the clustered years where “Ashley” was obnoxiously popular; ranking the top 20 years is even more ridiculous. Here:

babynames %>%
  filter(name == "Ashley", sex == "F") %>%
  top_n(20, prop) %>%
  arrange(-prop)

The earliest of the 20 most popular years is 1982, and the trend continues for EVERY SINGLE CONSECUTIVE YEAR until 2001.

babynames %>%
  filter(name == "Ashley" | name == "Heather" | name == "Kay") %>%
  filter(sex == "F") %>%
  ggplot(aes(x = year, y = n, color = name)) +
  geom_line()

I’ve run a comparison graph, charting the popularity of my name, “Heather,” and “Kay.” “Ashley” is roughly double in popularity than “Heather” and some large percentage more popular than “Kay,” even at its peak in the 40’s. Unsurprisingly, “Heather” saw a significant peak in popularity around the time my mom was born–1975.