Exchange Rates - TRADHIST_EXCHANGE_RATES

Data - CEPII

Author

François Geerolf

Info

# **Last data update**: 01 aoû 2026, 21:30. **Last compile**: 15 aoû 2026, 15:20

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("")