# Load packages
library(vdemdata)
library(tidyverse)
# Create dataset for year 2022, with country name, year, and electoral dem
vdem2022 <- vdem |>
filter(year == 2022) |>
select(
country = country_name,
year,
polyarchy = v2x_polyarchy,
region = e_regionpol_6C
) |>
mutate(region = case_match(region,
1 ~ "Eastern Europe",
2 ~ "Latin America",
3 ~ "Middle East",
4 ~ "Africa",
5 ~ "The West",
6 ~ "Asia"))