Tidy_Tuesday_May_21_2019_v3

Tidy_Tuesday_May_21_2019_v3

library(tidyverse)
library(janitor)
library(countrycode)
library(ggthemes)

mismanaged_vs_gdp <- read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-05-21/per-capita-mismanaged-plastic-waste-vs-gdp-per-capita.csv")
mismanaged_vs_gdp <- clean_names(mismanaged_vs_gdp)
mismanaged_vs_gdp$continent <- countrycode(sourcevar = mismanaged_vs_gdp$entity,
                                      origin = "country.name",
                                      destination = "continent")
options(scipen = 999)
mismanaged_vs_gdp %>%
  group_by(continent) %>%
  filter(continent == "Europe" & !is.na(per_capita_mismanaged_plastic_waste_kilograms_per_person_per_day)) %>%
  ggplot(aes(x =  per_capita_mismanaged_plastic_waste_kilograms_per_person_per_day, 
             y = reorder(entity, per_capita_mismanaged_plastic_waste_kilograms_per_person_per_day))) +
  geom_point(size = 4) +
  labs(x = "Per Capita Mismanaged Plastic Waste, Kilos per Day", 
       y = "European Country", 
       title = "Per Capita Mismanaged Plastic Waste in\nEurope in 2010", 
       subtitle = "Mismanaged Plastic Waste Kilograms per Day") +
  theme_economist()