Module 11: Apply it to your data 10
Keagan Moore
Import your data
# Read the Excel file
df <- read_excel("GDP_vs_PlasticWaste_Analysis.xlsx")
# Preview the data
glimpse(df)## Rows: 150
## Columns: 6
## $ Country <chr> …
## $ `GDP per Capita (USD)` <dbl> …
## $ `Plastic Waste per Capita (kg)` <dbl> …
## $ `Total Plastic Waste Generation (tonnes)` <dbl> …
## $ `Mismanaged Plastic Waste (tonnes)` <dbl> …
## $ `Managed Plastic Waste (tonnes) (recycled, incinerated, sealed landfills)` <dbl> …Chapter 15
Create a factor
# Make Country a factor
df <- df %>%
mutate(Country = as_factor(Country))
# Check levels
levels(df$Country)## [1] "Albania" "Algeria"
## [3] "Angola" "Antigua and Barbuda"
## [5] "Argentina" "Aruba"
## [7] "Australia" "Bahamas"
## [9] "Bahrain" "Bangladesh"
## [11] "Barbados" "Belgium"
## [13] "Belize" "Benin"
## [15] "Bermuda" "Bosnia and Herzegovina"
## [17] "Brazil" "Brunei"
## [19] "Bulgaria" "Cambodia"
## [21] "Cameroon" "Canada"
## [23] "Cape Verde" "Cayman Islands"
## [25] "Chile" "China"
## [27] "Colombia" "Comoros"
## [29] "Congo" "Costa Rica"
## [31] "Cote d'Ivoire" "Croatia"
## [33] "Cyprus" "Democratic Republic of Congo"
## [35] "Denmark" "Djibouti"
## [37] "Dominica" "Dominican Republic"
## [39] "Ecuador" "Egypt"
## [41] "El Salvador" "Equatorial Guinea"
## [43] "Eritrea" "Estonia"
## [45] "Fiji" "Finland"
## [47] "France" "Gabon"
## [49] "Gambia" "Georgia"
## [51] "Germany" "Ghana"
## [53] "Greece" "Grenada"
## [55] "Guatemala" "Guinea"
## [57] "Guinea-Bissau" "Guyana"
## [59] "Haiti" "Honduras"
## [61] "Hong Kong" "Iceland"
## [63] "India" "Indonesia"
## [65] "Iran" "Iraq"
## [67] "Israel" "Italy"
## [69] "Jamaica" "Japan"
## [71] "Jordan" "Kenya"
## [73] "Kiribati" "Kuwait"
## [75] "Latvia" "Lebanon"
## [77] "Liberia" "Libya"
## [79] "Lithuania" "Macao"
## [81] "Madagascar" "Malaysia"
## [83] "Maldives" "Malta"
## [85] "Marshall Islands" "Mauritania"
## [87] "Mauritius" "Mexico"
## [89] "Micronesia (country)" "Montenegro"
## [91] "Morocco" "Mozambique"
## [93] "Myanmar" "Namibia"
## [95] "Nauru" "Netherlands"
## [97] "New Zealand" "Nicaragua"
## [99] "Norway" "Oman"
## [101] "Pakistan" "Palau"
## [103] "Palestine" "Panama"
## [105] "Papua New Guinea" "Peru"
## [107] "Philippines" "Poland"
## [109] "Portugal" "Puerto Rico"
## [111] "Qatar" "Romania"
## [113] "Russia" "Saint Kitts and Nevis"
## [115] "Saint Lucia" "Saint Vincent and the Grenadines"
## [117] "Samoa" "Sao Tome and Principe"
## [119] "Saudi Arabia" "Senegal"
## [121] "Seychelles" "Sierra Leone"
## [123] "Singapore" "Sint Maarten (Dutch part)"
## [125] "Slovenia" "Solomon Islands"
## [127] "South Africa" "South Korea"
## [129] "Spain" "Sri Lanka"
## [131] "Sudan" "Suriname"
## [133] "Sweden" "Tanzania"
## [135] "Thailand" "Togo"
## [137] "Tonga" "Trinidad and Tobago"
## [139] "Tunisia" "Turkey"
## [141] "Tuvalu" "Ukraine"
## [143] "United Arab Emirates" "United Kingdom"
## [145] "United States" "Uruguay"
## [147] "Vanuatu" "Venezuela"
## [149] "Vietnam" "Yemen"Modify factor order
# Bar plot before reordering
df %>%
ggplot(aes(x = Country, y = `Plastic Waste per Capita (kg)`)) +
geom_col() +
labs(title = "Before Reordering") +
theme(axis.text.x = element_text(angle = 90, hjust = 1))
# Bar plot after reordering
df %>%
mutate(Country = fct_reorder(Country, `Plastic Waste per Capita (kg)`)) %>%
ggplot(aes(x = Country, y = `Plastic Waste per Capita (kg)`)) +
geom_col() +
labs(title = "After Reordering") +
theme(axis.text.x = element_text(angle = 90, hjust = 1))
Modify factor levels
# fct_recode
df <- df %>%
mutate(Country = fct_recode(Country,
"USA" = "United States",
"UK" = "United Kingdom"))
# fct_collapse
df <- df %>%
mutate(Region = fct_collapse(Country,
"Western" = c("USA", "UK", "Germany"),
"Other" = c("Albania", "Angola", "Argentina")))
# fct_lump
df <- df %>%
mutate(Country_lumped = fct_lump(Country, n = 5))
# View changed levels
levels(df$Country)## [1] "Albania" "Algeria"
## [3] "Angola" "Antigua and Barbuda"
## [5] "Argentina" "Aruba"
## [7] "Australia" "Bahamas"
## [9] "Bahrain" "Bangladesh"
## [11] "Barbados" "Belgium"
## [13] "Belize" "Benin"
## [15] "Bermuda" "Bosnia and Herzegovina"
## [17] "Brazil" "Brunei"
## [19] "Bulgaria" "Cambodia"
## [21] "Cameroon" "Canada"
## [23] "Cape Verde" "Cayman Islands"
## [25] "Chile" "China"
## [27] "Colombia" "Comoros"
## [29] "Congo" "Costa Rica"
## [31] "Cote d'Ivoire" "Croatia"
## [33] "Cyprus" "Democratic Republic of Congo"
## [35] "Denmark" "Djibouti"
## [37] "Dominica" "Dominican Republic"
## [39] "Ecuador" "Egypt"
## [41] "El Salvador" "Equatorial Guinea"
## [43] "Eritrea" "Estonia"
## [45] "Fiji" "Finland"
## [47] "France" "Gabon"
## [49] "Gambia" "Georgia"
## [51] "Germany" "Ghana"
## [53] "Greece" "Grenada"
## [55] "Guatemala" "Guinea"
## [57] "Guinea-Bissau" "Guyana"
## [59] "Haiti" "Honduras"
## [61] "Hong Kong" "Iceland"
## [63] "India" "Indonesia"
## [65] "Iran" "Iraq"
## [67] "Israel" "Italy"
## [69] "Jamaica" "Japan"
## [71] "Jordan" "Kenya"
## [73] "Kiribati" "Kuwait"
## [75] "Latvia" "Lebanon"
## [77] "Liberia" "Libya"
## [79] "Lithuania" "Macao"
## [81] "Madagascar" "Malaysia"
## [83] "Maldives" "Malta"
## [85] "Marshall Islands" "Mauritania"
## [87] "Mauritius" "Mexico"
## [89] "Micronesia (country)" "Montenegro"
## [91] "Morocco" "Mozambique"
## [93] "Myanmar" "Namibia"
## [95] "Nauru" "Netherlands"
## [97] "New Zealand" "Nicaragua"
## [99] "Norway" "Oman"
## [101] "Pakistan" "Palau"
## [103] "Palestine" "Panama"
## [105] "Papua New Guinea" "Peru"
## [107] "Philippines" "Poland"
## [109] "Portugal" "Puerto Rico"
## [111] "Qatar" "Romania"
## [113] "Russia" "Saint Kitts and Nevis"
## [115] "Saint Lucia" "Saint Vincent and the Grenadines"
## [117] "Samoa" "Sao Tome and Principe"
## [119] "Saudi Arabia" "Senegal"
## [121] "Seychelles" "Sierra Leone"
## [123] "Singapore" "Sint Maarten (Dutch part)"
## [125] "Slovenia" "Solomon Islands"
## [127] "South Africa" "South Korea"
## [129] "Spain" "Sri Lanka"
## [131] "Sudan" "Suriname"
## [133] "Sweden" "Tanzania"
## [135] "Thailand" "Togo"
## [137] "Tonga" "Trinidad and Tobago"
## [139] "Tunisia" "Turkey"
## [141] "Tuvalu" "Ukraine"
## [143] "United Arab Emirates" "UK"
## [145] "USA" "Uruguay"
## [147] "Vanuatu" "Venezuela"
## [149] "Vietnam" "Yemen"levels(df$Region)## [1] "Other" "Algeria"
## [3] "Antigua and Barbuda" "Aruba"
## [5] "Australia" "Bahamas"
## [7] "Bahrain" "Bangladesh"
## [9] "Barbados" "Belgium"
## [11] "Belize" "Benin"
## [13] "Bermuda" "Bosnia and Herzegovina"
## [15] "Brazil" "Brunei"
## [17] "Bulgaria" "Cambodia"
## [19] "Cameroon" "Canada"
## [21] "Cape Verde" "Cayman Islands"
## [23] "Chile" "China"
## [25] "Colombia" "Comoros"
## [27] "Congo" "Costa Rica"
## [29] "Cote d'Ivoire" "Croatia"
## [31] "Cyprus" "Democratic Republic of Congo"
## [33] "Denmark" "Djibouti"
## [35] "Dominica" "Dominican Republic"
## [37] "Ecuador" "Egypt"
## [39] "El Salvador" "Equatorial Guinea"
## [41] "Eritrea" "Estonia"
## [43] "Fiji" "Finland"
## [45] "France" "Gabon"
## [47] "Gambia" "Georgia"
## [49] "Western" "Ghana"
## [51] "Greece" "Grenada"
## [53] "Guatemala" "Guinea"
## [55] "Guinea-Bissau" "Guyana"
## [57] "Haiti" "Honduras"
## [59] "Hong Kong" "Iceland"
## [61] "India" "Indonesia"
## [63] "Iran" "Iraq"
## [65] "Israel" "Italy"
## [67] "Jamaica" "Japan"
## [69] "Jordan" "Kenya"
## [71] "Kiribati" "Kuwait"
## [73] "Latvia" "Lebanon"
## [75] "Liberia" "Libya"
## [77] "Lithuania" "Macao"
## [79] "Madagascar" "Malaysia"
## [81] "Maldives" "Malta"
## [83] "Marshall Islands" "Mauritania"
## [85] "Mauritius" "Mexico"
## [87] "Micronesia (country)" "Montenegro"
## [89] "Morocco" "Mozambique"
## [91] "Myanmar" "Namibia"
## [93] "Nauru" "Netherlands"
## [95] "New Zealand" "Nicaragua"
## [97] "Norway" "Oman"
## [99] "Pakistan" "Palau"
## [101] "Palestine" "Panama"
## [103] "Papua New Guinea" "Peru"
## [105] "Philippines" "Poland"
## [107] "Portugal" "Puerto Rico"
## [109] "Qatar" "Romania"
## [111] "Russia" "Saint Kitts and Nevis"
## [113] "Saint Lucia" "Saint Vincent and the Grenadines"
## [115] "Samoa" "Sao Tome and Principe"
## [117] "Saudi Arabia" "Senegal"
## [119] "Seychelles" "Sierra Leone"
## [121] "Singapore" "Sint Maarten (Dutch part)"
## [123] "Slovenia" "Solomon Islands"
## [125] "South Africa" "South Korea"
## [127] "Spain" "Sri Lanka"
## [129] "Sudan" "Suriname"
## [131] "Sweden" "Tanzania"
## [133] "Thailand" "Togo"
## [135] "Tonga" "Trinidad and Tobago"
## [137] "Tunisia" "Turkey"
## [139] "Tuvalu" "Ukraine"
## [141] "United Arab Emirates" "Uruguay"
## [143] "Vanuatu" "Venezuela"
## [145] "Vietnam" "Yemen"levels(df$Country_lumped)## [1] "Albania" "Algeria"
## [3] "Angola" "Antigua and Barbuda"
## [5] "Argentina" "Aruba"
## [7] "Australia" "Bahamas"
## [9] "Bahrain" "Bangladesh"
## [11] "Barbados" "Belgium"
## [13] "Belize" "Benin"
## [15] "Bermuda" "Bosnia and Herzegovina"
## [17] "Brazil" "Brunei"
## [19] "Bulgaria" "Cambodia"
## [21] "Cameroon" "Canada"
## [23] "Cape Verde" "Cayman Islands"
## [25] "Chile" "China"
## [27] "Colombia" "Comoros"
## [29] "Congo" "Costa Rica"
## [31] "Cote d'Ivoire" "Croatia"
## [33] "Cyprus" "Democratic Republic of Congo"
## [35] "Denmark" "Djibouti"
## [37] "Dominica" "Dominican Republic"
## [39] "Ecuador" "Egypt"
## [41] "El Salvador" "Equatorial Guinea"
## [43] "Eritrea" "Estonia"
## [45] "Fiji" "Finland"
## [47] "France" "Gabon"
## [49] "Gambia" "Georgia"
## [51] "Germany" "Ghana"
## [53] "Greece" "Grenada"
## [55] "Guatemala" "Guinea"
## [57] "Guinea-Bissau" "Guyana"
## [59] "Haiti" "Honduras"
## [61] "Hong Kong" "Iceland"
## [63] "India" "Indonesia"
## [65] "Iran" "Iraq"
## [67] "Israel" "Italy"
## [69] "Jamaica" "Japan"
## [71] "Jordan" "Kenya"
## [73] "Kiribati" "Kuwait"
## [75] "Latvia" "Lebanon"
## [77] "Liberia" "Libya"
## [79] "Lithuania" "Macao"
## [81] "Madagascar" "Malaysia"
## [83] "Maldives" "Malta"
## [85] "Marshall Islands" "Mauritania"
## [87] "Mauritius" "Mexico"
## [89] "Micronesia (country)" "Montenegro"
## [91] "Morocco" "Mozambique"
## [93] "Myanmar" "Namibia"
## [95] "Nauru" "Netherlands"
## [97] "New Zealand" "Nicaragua"
## [99] "Norway" "Oman"
## [101] "Pakistan" "Palau"
## [103] "Palestine" "Panama"
## [105] "Papua New Guinea" "Peru"
## [107] "Philippines" "Poland"
## [109] "Portugal" "Puerto Rico"
## [111] "Qatar" "Romania"
## [113] "Russia" "Saint Kitts and Nevis"
## [115] "Saint Lucia" "Saint Vincent and the Grenadines"
## [117] "Samoa" "Sao Tome and Principe"
## [119] "Saudi Arabia" "Senegal"
## [121] "Seychelles" "Sierra Leone"
## [123] "Singapore" "Sint Maarten (Dutch part)"
## [125] "Slovenia" "Solomon Islands"
## [127] "South Africa" "South Korea"
## [129] "Spain" "Sri Lanka"
## [131] "Sudan" "Suriname"
## [133] "Sweden" "Tanzania"
## [135] "Thailand" "Togo"
## [137] "Tonga" "Trinidad and Tobago"
## [139] "Tunisia" "Turkey"
## [141] "Tuvalu" "Ukraine"
## [143] "United Arab Emirates" "UK"
## [145] "USA" "Uruguay"
## [147] "Vanuatu" "Venezuela"
## [149] "Vietnam" "Yemen"