arya_babynames.R

library(babynames)
library(tidyverse)

babynames::babynames %>%
  filter(name=='Arya') %>%
  ggplot(aes(x=year, y=prop*100, color=sex)) +
  geom_line(size=1) +
  labs(title = 'Babies Named Arya', 
       subtitle = 'as a proportion of all births that year',
       y='%') +
  scale_color_manual(values = c(F='pink', M='dodgerblue'))

Alternate version with supply-your-own regex:

library(babynames)
library(tidyverse)

name_regex <- 'Ramse?y'
babynames::babynames %>%
  filter(grepl(name_regex, name)) %>%
  group_by(year, sex) %>%
  summarise(prop=sum(prop)) %>%
  ggplot(aes(x=year, y=prop*100, color=sex)) +
  geom_line(size=1) +
  labs(title = paste('Babies regex matching:', name_regex), 
       subtitle = 'as a proportion of all births that year',
       y='%') +
  scale_color_manual(values = c(F='pink', M='dodgerblue'))

Compare multiple names and label certain years with vertical lines:

library(babynames)
library(tidyverse)

babynames::babynames %>%
  filter(name %in% c('Katrina', 'Camille')) %>%
  group_by(year, name) %>%
  summarise(prop=sum(prop)) %>%
  ggplot(aes(x=year, y=prop*100, color=name)) +
  geom_vline(xintercept = c(1969,2005), linetype = 'dotted') +
  geom_line(size=1) +
  labs(title = 'Births by name', 
       subtitle = 'as a proportion of all births that year',
       y='%')