Baby Names

1 Introduction

In this report we are going to analyze babynames dataset to learn about names popularity over time and sharpen our data analysis skills using R!

2 Data

This is the dataset we will be using in this report (first 1000 rows)

babynames 

• The dataset has 1924665 rows

• The dataset has 97310 unique names

• The dataset spans a period from 1880 to 2017

my_year <- 2007

3 Most Popular Baby Names Born in 2007

3.1 Boys

boys <- 
  babynames %>% 
  filter(sex=="M", year == my_year) %>% 
  top_n(10,prop) %>% 
  arrange(-prop) %>% 
  select(name, prop)

boys

boys %>% 
  ggplot(aes(x = fct_reorder(name, -prop), y =prop)) +
  geom_col(fill = "steelblue", alpha = 0.5)+
  theme_bw()+
  labs(title = glue("Most Popular Boys Names born in {my_year}"), 
       x="",
       y = "Average Proportion")+
  scale_y_continuous(labels = scales::percent)

3.2 Girls

# Write code to find top 10 girls names born in your year 
girls <- 
  babynames %>% 
  filter(sex=="F", year == my_year) %>% 
  top_n(10,prop) %>% 
  arrange(-prop) %>% 
  select(name, prop)

girls

NA

# Write code to plot top 10 girls names born in your year
girls %>% 
  ggplot(aes(x = fct_reorder(name, -prop), y = prop)) +
  geom_col(fill = "pink", alpha = 0.5)+
  theme_bw()+
  labs(title = glue("Most Popular Girls Names born in {my_year}"), 
       x="",
       y = "Average Proportion")+
  scale_y_continuous(labels = scales::percent)

4 Popularity of My Name Over Time

my_decade <- 1970

5 Most popular names in 2000

names_by_decade <-
  babynames %>% 
  mutate(decade = floor(year/10)*10) %>% 
  filter(decade == my_decade) %>%
  group_by(sex, name) %>% 
  summarise(prop = mean(prop)) %>%   
  group_by(sex) %>% 
  top_n(10, prop) %>% 
  arrange(-prop) %>% 
  ungroup() %>% 
  mutate(sex = recode(sex, "M" = "Boys","F" = "Girls"))


names_by_decade %>% 
  ggplot(aes(x = fct_reorder(name, prop), y =prop)) +
  geom_col(aes(fill = sex), alpha = 0.7,show.legend = FALSE)+
  geom_text(aes(label = percent(prop,accuracy = 0.01)), color = "darkblue", nudge_y = -0.003)+
  labs(title = glue("Most Popular Baby Names born in {my_decade}'s"), 
       x="",
       y = "Average Popularity")+
  scale_y_continuous(labels = percent)+
  coord_flip()+
  facet_wrap(~sex,scales = "free_y")+
  theme_bw()+
  theme(text = element_text(size = 14))+
  scale_fill_manual(values = c("Girls"= "pink","Boys" = "steelblue"))