is both a boy and a girls name

hillary.png

hillary.R

# install.packages("babynames")
library(babynames)

babynames %>% 
  filter(str_detect(name, "Hill?ary")) %>% 
  count(year, sex, wt = prop) %>% 
  ggplot(aes(x = year, y = nn)) +
  geom_line(aes(colour = sex)) +
  scale_y_continuous(labels = scales::percent_format()) +
  theme_minimal() +
  theme(legend.position = "bottom") +
  labs(title = "Hillary + Hilary",
       subtitle = "Proportion of babies names by gender",
       x = "Year",
       y = NULL)