Data Visualization, R Programming, Data Science, Ggplot2, Tidyverse.
toupper(str_sub(Country, 1, 8)), Year = str_sub(Year, 3, 4)) %>% mutate(Country = if_else(Country == "CZECH RE", "CZECH", if_else(Country == "NEW ZEAL", "NZ", if_else(Country == "UNITED K", "UK", if_else(Country == "UNITED S", "USA", if_else(Country == "SWITZERL", "SWITLAND", Country)))))) Clean-up