Baby Names

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

These are the libraries that I used for this assignment.

Question 1.

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

This data shows that the name Micah was ranked the 195th most popular boys name in the year 1999. There were a total of 1,739 babies named Micah that year.

Question 2.

babynames %>%
  filter(year == 1999) %>%     # use only one year
  filter(sex == "M") %>%       # use only one sex
  select(name, n) %>%          # select the two relevant variables: the name and how often it occurs
  top_n(100, n) %>%            # use only the top names or it could get too big
  wordcloud2(size = .4)        # generate the word cloud at a font size of .5

This is a wordcloud of the most popular baby names for boys in the year 1999. The name Micah does not appear on this wordcloud because it was not in the top 100.

Question 3.

babynames %>%                                    # start with the data
  filter(name == "Micah", sex == "M") %>%      # choose the name and sex
  mutate(percent = round(prop * 100, 1)) %>%     # create a new variable called percent
  ggplot(aes(x = year, y = percent)) +           # put year on the x-axis and prop (proportion) on y
  geom_line(color = "blue")                      # make it a line graph and give the line a color

This is a graph showing the popularity of the name Micah over time. The name was not very popular but increased around the 1970’s. It also jumped up again in popularity in the mid 2000’s reaching reaching its peak at 2% of baby boy names.

Question 4.

babynames %>%                                  # Start with the dataset
  filter(name == "Micah", sex == "M") %>%    # only look at the name and sex you want
  top_n(10, prop) %>% # get the top 10 names
  arrange(-prop)  %>%                             # sort in descending order
mutate(percent = round(prop * 100, 1))

This is a table showing the years that the name Micah was most popular. In the years 2011 and 2012 the name was most popular.

Question 5.

babynames %>%
  filter(name == "Micah" | name == "Bob", sex == "M") %>%  
  mutate(percent = round(prop * 100, 1)) %>%  
  ggplot(aes(x = year, y = percent, color = name)) +
  geom_line()

babynames %>%
  filter(name == "Micah" | name == "Jason", sex == "M") %>%  
  mutate(percent = round(prop * 100, 1)) %>%  
  ggplot(aes(x = year, y = percent, color = name)) +
  geom_line()

These are two graphs showing the differences in popularity between the name Micah and two other boy names Bob and Jason. The name Bob was much more popular than Micah from the years 1880 till about 1960. The name Micah became more popular than Bob around the 1970’s. The name Jason has always been more popular than the name Micah and is still more popular even in current years.

Question 6.

babynames |>
  filter(name == "Anakin" | name == "Han" | name == "Luke", year > 1960) |> 
  filter(sex == "M") |> 
  ggplot(aes(x = year, y = n, color = name)) +
  geom_line()

This is a graph showing popularity of names of characters from Star Wars. Luke and Han were the names of two of the main characters of the first Star Wars movie which came out in 1977. The name Han did not show any popularity during any years but Luke did have a minor spike in the year 1980. The main character of the newer three Star Wars movies name was Anakin. These movies began to come out in 1999 which is where the name Anakin seems to begin to grow slightly in popularity.