The Popularity of your name

# This code is to import all required packages
suppressPackageStartupMessages({
  library(tidyverse)
  library(babynames)
  library(glue)
})

Almost everybody has a name. But how popular was it? Find out using this code!

Example: Population of my name over time

Name: Kyle

#Code for showing popularity
my_name <- "Kyle"

my_name_code <-
babynames %>%
  filter(name == my_name, sex == "M") %>% 
  ggplot(aes(x = year, y = prop)) +
  geom_line(color = "darkorchid") +
  labs(title = glue("Popularity of my name, {my_name} Over Time"),
       x = "Year",
       y = "Popularity")
my_name_code

This chart shows that babies were named Kyle mostly around the 1990s and started to grow unpopular after the 2000s.

Popularity of your name over time

How popular was your name over time?

#Insert your name below
your_name <- "Michael"

your_name_code <-
  babynames %>%
  filter(name == your_name, sex == "M") %>% 
  ggplot(aes(x = year, y = prop)) +
  geom_line(color = "darkorchid") +
  labs(title = glue("Popularity of the name, {your_name} Over Time"),
       x = "Year",
       y = "Popularity")
your_name_code