Baby names assignment

library(tidyverse)

Warning: package 'tidyverse' was built under R version 4.2.3

Warning: package 'ggplot2' was built under R version 4.2.3

Warning: package 'tibble' was built under R version 4.2.3

Warning: package 'tidyr' was built under R version 4.2.3

Warning: package 'readr' was built under R version 4.2.3

Warning: package 'purrr' was built under R version 4.2.3

Warning: package 'dplyr' was built under R version 4.2.3

Warning: package 'stringr' was built under R version 4.2.3

Warning: package 'forcats' was built under R version 4.2.3

Warning: package 'lubridate' was built under R version 4.2.3

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.4.4     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(gt)

Warning: package 'gt' was built under R version 4.2.3

library(wordcloud2)

Warning: package 'wordcloud2' was built under R version 4.2.3

library(babynames)

Warning: package 'babynames' was built under R version 4.2.3

babynames |>                             
  filter(year == 2002, sex == "F") |>    
  mutate(rank = row_number()) |>         
  mutate(percent = round(prop * 100, 1)) |> 
  filter(name == "Katie") |> 
  gt()

year	sex	name	n	prop	rank	percent
2002	F	Katie	3225	0.00163377	103	0.2

The name Katie was ranked in the top 103 with 3,225 girls possessing the name in 2002.

babynames |>
  filter(year == 2002) |>     
  filter(sex == "F") |>       
  slice_max(prop, n=100) |>   
  select(name, n) |>          
  wordcloud2(size = .5) + WCtheme(2)

babynames |>
  filter(year == 2002) |>   
  filter(sex == "F") |>       
  slice_max(prop, n=100) |> 
  select(name, n) |>          
  wordcloud2(size = .5, shape = "square", color = "magenta")

This is a magenta word cloud of the 100 most popular girl names in the year 2002. As you can see, Madison, Emily, and Hannah seem to be the most popular since they are in the biggest text size.

babynames |>                                    
  filter(name == "Katie", sex == "F") |>      
  ggplot(aes(x = year, y = prop)) +              
  geom_line()

The name Katie was popular back in the 1880’s, lost popularity, then peaked around 1985. By the year of 2002, the name had lost popularity again.

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

Maddison did not become a common girl name until the early 2000’s. In comparison, the name Katie has had popularity in the past, but drastic decline as Maddison has been on the rise.

babynames |>                                     
  filter(name == "Katie", sex == "F") |>       
  slice_max(prop, n = 1)

# A tibble: 1 × 5
   year sex   name      n    prop
  <dbl> <chr> <chr> <int>   <dbl>
1  1986 F     Katie  8332 0.00452

babynames |>                                     
  filter(name == "Maddison", sex == "F") |>       
  slice_max(prop, n = 1)

# A tibble: 1 × 5
   year sex   name         n     prop
  <dbl> <chr> <chr>    <int>    <dbl>
1  2009 F     Maddison  1163 0.000575

Katie reached its peak popularity in 1968 with 8332 girls born with that name (about 0.45%). If you happened to know a Katie that was currently somewhat young, and wanted to guess what year she was born, this would not be a good way to base that guess. However, it might provide a more accurate guess for the name Maddison.

babynames |>
  filter(name == "Shirley" | name == "Heidi" | name == "Sara") |> 
  filter(sex == "F") |> 
  ggplot(aes(x = year, y = n, color = name)) +
  geom_line()

Shirley Temple was born is 1928 and died in 2014. She starred in many movies from a very young age, many of which are still admired today. “Heidi” (1937) was arguably the most popular movie that Shirley Temple starred in followed by “The Little Princess” (1939). Sara was the character that Shirley played in “The Little Princess” movie. From the graph we see that the name Shirley became extremely popular around the time her most popular movies came out. Her two popular character names raised in popularity around that time as well, but not like they did until ‘Shirley’ dropped off.