IFS Exchange Rates - IFS_ER

Data - IMF

1 USD = 0.8 Pounds

Code
IFS_ER %>%
  filter(countryname == "United Kingdom") %>%
  ggplot() + geom_line(aes(x = date, y = value, linetype = freq, color = freq)) + 
  theme_minimal() + xlab("") + ylab("") + 
  scale_color_manual(values = viridis(4)[1:3]) +
  theme(legend.title = element_blank(),
        legend.position = c(0.1, 0.70)) + 
  scale_y_continuous(breaks = seq(0, 10, 0.1)) + 
  scale_x_date(labels = date_format("%y"),
               breaks = seq(1900, 2020, 10) %>% paste0("-01-01") %>% as.Date)