Name Analysis

1. The following will determine the rank in popularity of the name Amanda among females in 1998.

babynames %>%                             
  filter(year == 1998, sex == "F") %>%    
  mutate(rank = row_number()) %>%         
  mutate(percent = round(prop * 100, 1)) %>% 
  filter(name == "Amanda")               

NA

Amanda was ranked the 19th most popular name in 1998 with 10,912 females having this name. This translates to about 0.6% of females in 1998 having the name.

2. A graphic called a word cloud can be created to show the top 100 names of females in 1998.

babynames %>%
  filter(year == 1998) %>%     # use only one year
  filter(sex == "F") %>%       # 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 = .5, shape = "oval")        

The word cloud graphic shows the top 100 most popular names for females in 1998. The bigger names mean they were more popular with smaller names being less popular. According to this graphic, one can observe that the names Emily, Hannah, Samantha, and Ashley were some of the most popular names during this time among others.

3. The following will show the popularity of the name Amanda over time.

babynames %>%
  filter(name == "Amanda", sex == "F") %>% 
  mutate(percent = round(prop * 100, 1)) %>%
  ggplot(aes(x = year, y = percent)) +
  geom_line()

The graph shows that the name Amanda rose to popularity during the late 1970’s and did not become very popular until the 1980’s. The name Amanda peaked in popularity around the late 1980’s and early 1990’s. After the 1990’s, the name drastically fell in popularity. When the name Amanda was the most popular, about 2.3% of the female population had the name.

4. The following table will show what years the name Amanda was the most popular name among females.

babynames %>%                                  # Start with the dataset
  filter(name == "Amanda", sex == "F") %>%    # only look at the name and sex you want
  top_n(10, prop) %>%                          # get the top 10 names
  arrange(-prop)                               # sort in descending order

NA

The table confirms what the graph in question 3 shows: the name Amanda did not become popular until the beginning of the 1980’s and peaked in popularity around the late 1980’s. After the late 1980’s, the popularity decreased dramatically. The name Amanda was the most popular in 1987 and there were 41,786 females with the name.

5. The following graph shows a popularity comparison using the names Amanda, Sarah, and Tina.

babynames %>%
  filter(name == "Amanda" | name == "Sarah" | name == "Tina") %>% 
  filter(sex == "F") %>% 
  ggplot(aes(x = year, y = n, color = name)) +
  geom_line()

The graph shows that the names Amanda, Sarah, and Tina all vary in popularity. The name Tina became popular around middle of the 1950’s and peaked in popularity around the middle of the 1960’s. Tina had the lowest overall popularity with only about 15,000 females having the name at the peak of popularity. The name Sarah became popular around the same time as the name Amanda but had less females with the name. At the peak of populairty, there were about 26,000 females with the name Sarah. Again, the name Amanda became popular around the late 1980’s and had about 42,000 females with the name at its peak in popularity. However, the name Sarah remained more popular than the name Amanda after the 1990’s.