Untitled

#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