Overview

This report visualizes the number of FIFA Women’s World Cup wins by country, based on tournament data from 1991 to 2019.

library(tidyverse)

tournaments <- read_csv("~/Desktop/tournaments.csv")
country_colors <- c(
  "United States" = "#002868",
  "Germany"       = "#FFCE00",
  "Japan"         = "#BC002D",
  "Norway"        = "#EF2B2D"
)

tournaments |>
  filter(str_detect(tournament_name, "Women")) |>
  count(winner, name = "wins") |>
  ggplot(aes(x = reorder(winner, -wins), y = wins, fill = winner)) +
  geom_col() +
  geom_text(aes(label = wins), vjust = -0.5, fontface = "bold", size = 5) +
  scale_fill_manual(values = country_colors) +
  labs(
    title = "Female FIFA World Cup Wins",
    x = NULL,
    y = "Number of Wins"
  ) +
  theme(legend.position = "none") +
  ylim(0, 4.5)