Freedom index

AE 11

library(tidyverse)
library(mapproj)

Freedom index

Data:

freedom <- read_csv("data/freedom-2022.csv", na = c("", "-")) |>
  drop_na()

Rows: 322 Columns: 4
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (2): country, status
dbl (2): pr, cl

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

world_map <- map_data("world") |> as_tibble()

Plot:

# add code here