Exchange Rates - TRADHIST_EXCHANGE_RATES

Data - CEPII

Author

François Geerolf

countrycode

Ex 1: Pounds / Franc

Code 
TRADHIST_EXCHANGE_RATES %>%
  select(year, value = XCHtoGBR, variable = iso) %>%
  filter(variable == "FRA") %>%
  ggplot + geom_line(aes(x = year, y = value)) + 
  theme_minimal() + xlab("") + ylab("")

Ex 2: Pounds / Franc

Code 
TRADHIST_EXCHANGE_RATES %>%
  select(year, value = XCHtoGBR, variable = iso) %>%
  filter(variable == "FRA",
         year >= 1960) %>%
  ggplot + geom_line(aes(x = year, y = value)) + 
  theme_minimal() + xlab("") + ylab("")

Ex 3: Francs in Marks (1950-)

Code 
TRADHIST_EXCHANGE_RATES %>%
  select(year, value = XCHtoGBR, variable = iso) %>%
  filter(variable %in% c("FRA", "DEU")) %>%
  spread(variable, value) %>%
  mutate(ERate = FRA / DEU) %>%
  filter(year >= 1950) %>%
  ggplot + geom_line(aes(x = year, y = ERate)) + 
  theme_minimal() + xlab("") + ylab("")

Ex 4: UK/FRA

September 19, 1931, speculative attacks on the pound forced Britain to abandon the gold standard

Code 
TRADHIST_EXCHANGE_RATES %>%
  select(year, value = XCHtoGBR, variable = iso) %>%
  filter(variable == "FRA") %>%
  ggplot + geom_line(aes(x = year, y = value)) + 
  theme_minimal() + xlab("") + ylab("")