R Notebook

library(tidyverse)
library(wordcloud2)
library(babynames)

babynames

The table is displaying a list of Baby names.

babynames %>%
  filter(year == 1990, sex == "M") %>%    
  mutate(rank = row_number()) %>%         
  mutate(percent = round(prop * 100, 1)) %>% 
  filter(name == "Justin")          

The data reflects the ranking in popularity and the number of people with the name Justin in the year 1990.

babynames %>%
  filter(year == 1990) %>%     
  filter(sex == "M") %>%       
  select(name, n) %>%         
  top_n(100, n) %>%            
  wordcloud2(size = .5)   

Word cloud showing top 100 names.

babynames %>%                             
  filter(name == "Justin") %>%           
  ggplot(aes(x = year, y = prop)) +       
  geom_line()  

It appears that the name Justin was not a popular name until the late 60’s were there was a steady decrease from mid 90’s to roughly 2003.

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

The data lists the top ten years in which the name Justin was most popular.

babynames %>%                                  
  filter(name == "Justin", sex == "M") %>%    
  top_n(1, prop) %>%                          
  arrange(-prop)  

The data shows the top year for the name Justin.

.

babynames %>%
  filter(name == "Justin" | name == "Richard") %>% 
  filter(year > 1990) %>%
  filter(sex == "M") %>% 
  ggplot(aes(x = year, y = n, color = name)) +
  geom_line()

This is a comparison between the popularity in the names Justin and Richard in the year 1990 to current. The data shows Richard was mildly popular in the early 90s and steeply declined. Justin was very popular in the early 90’s and started to decline in the late 90’s and early 2000’s. Around 2015 both Justin and Richard were almost equally popular. Justin had slightly more popularity.

babynames %>%
  filter(name == "Justin" | name == "Richard" | name == "Mitch") %>% 
  filter(year > 1990) %>%
  filter(sex == "M") %>% 
  ggplot(aes(x = year, y = n, color = name)) +
  geom_line()

This is a comparison between the names Justin, Richard and Mitch. Justin was far more popular in the early 90’s than Richard and Mitch. In the early 90’s the names Justin and Richard started to steeply decline. It wasn’t until around 2000 that the name Justin showed increase in popularity becoming, still heading towards a decline in popularity. The name Mitch appears steady since early 90’s.

babynames %>%
  filter(name == "Justin" | name == "Richard" | name == "Mitch") %>% 
  filter(sex == "M") %>% 
  ggplot(aes(x = year, y = n, color = name)) +
  geom_line()

This shows a comparison of the names Justin, Richard and Mitch from 1880 to current. The name Richard started gaining a lot of popularity in the early 1900’s and rose to peak popularity around the 40’s and 50’s and started to steeply decline again becoming around equally as popular to Justin around 2015. The name Justin had the height of its popularity from roughly 1965-1980. The name mitch did not gain in popularity other than a tiny increase around 1955-1965.