popular-world-names.R

library(tidyverse)
library(rvest)

page <- read_html("https://en.wikipedia.org/wiki/List_of_most_popular_given_names")

page %>%
  html_nodes("table") %>%
  map(html_table, fill = TRUE) %>%
  map2_dfr(rep(c("male", "female"), 5), ~ mutate(.x, gender = .y)) %>%
  as_tibble() %>%
  relocate(gender) %>%
  set_names(c("gender", "region_year", paste0("no_", 1:10), "no_10_2")) %>%
  mutate(no_10 = coalesce(no_10, no_10_2)) %>%
  select(-no_10_2) %>%
  pivot_longer(-gender:-region_year, names_to = "number", values_to = "name") %>%
  mutate(
    region_year = str_remove(region_year, "\\[(\\d+|citation needed)\\]"),
    number = str_remove(number, "no_") %>% as.integer()
  ) %>%
  extract(region_year, c("region", "year"), "(.+)(\\(.+\\))", remove = FALSE) %>%
  mutate(
    region = coalesce(region, region_year),
    across(region, str_trim),
    across(year, str_remove_all, "[()]")
  ) %>%
  select(-region_year) %>%
  separate_rows(name, sep = ",\\s*") %>%
  drop_na(name) %>%
  write_csv("popular_world_names.csv")

popular_world_names.csv