#used chatgpt to get all alpha-3 codes (country codes) for each region:
Africa <- c("DZA", "AGO", "BEN", "BFA", "BWA", "BDI", "CPV", "CMR", "CAF", "TCD",
"COM", "COG", "COD", "DJI", "EGY", "GNQ", "ERI", "ETH", "GAB", "GMB",
"GHA", "GIN", "GNB", "CIV", "KEN", "LSO", "LBR", "LBY", "MDG", "MWI",
"MLI", "MRT", "MUS", "MYT", "MAR", "MOZ", "NAM", "NER", "NGA", "STP",
"REU", "RWA", "SHN", "STP", "SEN", "SYC", "SLE", "SOM", "ZAF", "SSD",
"SDN", "SWZ", "TZA", "TGO", "TUN", "UGA", "ESH", "ZMB", "ZWE")
Americas <- c("AIA", "ATG", "ARG", "ABW", "BHS", "BRB", "BLZ", "BMU", "BOL", "BRA", "VGB",
"CAN", "CYM", "CHL", "COL", "CRI", "CUB", "CUW", "DMA", "DOM", "ECU",
"SLV", "FLK", "GUF", "GRL", "GRD", "GLP", "GTM", "GUY", "HTI", "HND",
"JAM", "MTQ", "MEX", "MSR", "NIC", "PAN", "PRY", "PER", "PRI", "BES",
"KNA", "LCA", "MAF", "SPM", "VCT", "SXM", "SUR", "TTO", "TCA", "USA",
"URY", "VEN", "VIR", "ANT")
Asia <- c("AFG", "ARM", "AZE", "BHR", "BGD", "BTN", "BRN", "KHM", "CHN", "CXR",
"CCK", "IOT", "GEO", "HKG", "IND", "IDN", "IRN", "IRQ", "ISR", "JPN",
"JOR", "KAZ", "KWT", "KGZ", "LAO", "LBN", "MAC", "MYS", "MDV", "MNG",
"MMR", "NPL", "PRK", "OMN", "PAK", "PSE", "PHL", "QAT", "SAU", "SGP",
"KOR", "LKA", "SYR", "TWN", "TJK", "THA", "TLS", "TUR", "TKM", "ARE",
"UZB", "VNM", "YEM")
Europe <- c("ALB", "AND", "AUT", "BLR", "BEL", "BIH", "BGR", "HRV", "CYP", "CZE",
"DNK", "EST", "FRO", "FIN", "FRA", "DEU", "GIB", "GRC", "GGY", "HUN",
"ISL", "IRL", "IMN", "ITA", "JEY", "LVA", "LIE", "LTU", "LUX", "MLT",
"MDA", "MCO", "MNE", "NLD", "MKD", "NOR", "POL", "PRT", "ROU", "RUS",
"SMR", "SRB", "SVK", "SVN", "ESP", "SWE", "CHE", "UKR", "GBR", "VAT",
"OWID_KOS", "SJM")
Oceania <- c("AUS", "ASM", "COK", "FJI", "KIR", "MHL", "FSM", "NRU", "NCL", "NZL", "NIU",
"NFK", "MNP", "PLW", "PNG", "PCN", "PYF", "WSM", "SLB", "TKL", "TON", "TUV",
"VUT", "WLF", "GUM")
#rest----
corruption <- mutate(corruption, Region = case_when(
Code %in% Africa ~ 'Africa',
Code %in% Americas ~ 'Americas',
Code %in% Asia ~ 'Asia',
Code %in% Europe ~ 'Europe',
Code %in% Oceania ~ 'Oceania'))
#recoding corruption df to include region, gives region var value equal to
#region if alpha3 country code is included in respective vectors