Exchange Rates - EXR

Name: Exchange Rates
Creator: François Geerolf
License: https://www.ecb.europa.eu/stats/ecb_statistics/governance_and_quality_framework/html/usage_policy.en.html

Data - ECB

Author

François Geerolf

Last observation: H1 2026 (N = 29) · Q2 2026 (N = 630) · 4 sept. 2026 (N = 247) · août 2026 (N = 549) · 2025 (N = 1274)

First observation: sept. 1981 (N = 13) · 21 sept. 1981 (N = 13) · Q4 1981 (N = 13) · 1982 (N = 13) · H1 1999 (N = 35)

Last data update: 05 sept. 2026, 00:23

Last compile: 06 sept. 2026, 14:05

Structure

Swiss Franc, Dollar, Pound

All

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0.1, 3, 0.1),
                     labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

2008-

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= as.Date("2008-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0.1, 3, 0.1),
                     labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

2021-

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= as.Date("2021-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "3 months",
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = seq(0.1, 3, 0.05),
                     labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

2 years before

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= Sys.Date() - years(2)) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "2 months",
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = seq(0.1, 3, 0.05),
                     labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

2022-

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= as.Date("2022-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "3 months",
               labels = date_format("%b %Y")) +
  scale_y_continuous(breaks = seq(0.1, 3, 0.05),
                     labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

1 year-before

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= Sys.Date() - years(1)) |>
  arrange(desc(date)) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "1 month",
               labels = date_format("%b %Y")) +
  scale_y_log10(breaks = seq(0.1, 3, 0.04),
                     labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.15, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

6 months

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= Sys.Date() - months(3)) |>
  arrange(desc(date)) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "7 days",
               labels = date_format("%d %b %Y")) +
  scale_y_log10(breaks = seq(0.1, 3, 0.04),
                     labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.15, 0.3),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_text_repel(aes(x = date, y = OBS_VALUE, label = OBS_VALUE),
                  fontface ="plain", color = "black", size = 3)

3 months

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= Sys.Date() - months(3)) |>
  arrange(desc(date)) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "3 days",
               labels = date_format("%d %b %Y")) +
  scale_y_log10(breaks = seq(0.1, 3, 0.04),
                     labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.15, 0.3),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_text_repel(aes(x = date, y = OBS_VALUE, label = OBS_VALUE),
                  fontface ="plain", color = "black", size = 3)

1 month

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF", "GBP")) |>
  month_to_date() |>
  filter(date >= Sys.Date() - months(1)) |>
  arrange(desc(date)) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = "1 day",
               labels = date_format("%d %b %Y")) +
  scale_y_log10(breaks = seq(0.1, 3, 0.04),
                     labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
  
  theme(legend.position = c(0.15, 0.75),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_text_repel(aes(x = date, y = OBS_VALUE, label = OBS_VALUE), fontface ="plain", color = "black", size = 3)

Swiss Franc, Dollar

All

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF")) |>
  month_to_date() |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0.1, 3, 0.1),
                     labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

2008-

Code

EXR |>
  filter(FREQ == "D",
         CURRENCY %in% c("USD", "CHF")) |>
  month_to_date() |>
  filter(date >= as.Date("2008-01-01")) |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE, color = TITLE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 2) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0.1, 3, 0.1),
                     labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank()) +
  geom_label(data = . %>% filter(max(date) == date),
             aes(x = date, y = OBS_VALUE, label = round(OBS_VALUE, 3), color = TITLE),
             show.legend = F)

Argentine Peso : Euro

Linear

Code

plot_linear <- EXR |>
  filter(FREQ == "M",
         CURRENCY == "ARS") |>
  month_to_date() |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1960, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 100, 10),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = "/€")) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.8, 0.80),
        legend.title = element_blank())

plot_linear

Log

Code

plot_log <- plot_linear +
  scale_y_log10(breaks = c(1, 2, 3, 5, 8, 10, 20, 30, 50, 80, 100),
                     labels = dollar_format(accuracy = 1, prefix = "", suffix = "/€"))

plot_log

Bind

Code

ggarrange(plot_linear + ggtitle("Linear Scale"), plot_log  + ggtitle("Log Scale"))

Related Data

Data on Log

source	dataset	Title	Updated
ecb	EXR	Exchange Rates - EXR	2026-09-04
bdf	immobilier	Immobilier en France - immobilier	2026-08-01
bea	T10105	Table 1.1.5. Gross Domestic Product (A) (Q) - T10105	2026-07-25
fred	gdp	Gross Domestic Product - gdp	2026-09-01
fred	industry	Manufacturing, Industry - industry	2026-09-01
insee	marc-salair-net-moy-sexe	Évolution du salaire annuel net moyen des salariés dans le secteur privé à temps complet selon le sexe - marc-salair-net-moy-sexe	2026-08-02
insee	reve-niv-vie-pouv-achat-trim	Évolution du revenu disponible brut et du pouvoir d’achat - Données trimestrielles - reve-niv-vie-pouv-achat-trim	2026-08-02
log	microprocessor-trend-data	Microprocessor Trend Data - microprocessor-trend-data	2026-09-04

Why Economists Should Use Log Scales More Often

source	dataset	Title	Updated
ecb	EXR	Exchange Rates - EXR	2026-09-04
bdf	immobilier	Immobilier en France - immobilier	2026-08-01
bea	T10105	Table 1.1.5. Gross Domestic Product (A) (Q) - T10105	2026-07-25
fred	gdp	Gross Domestic Product - gdp	2026-09-01
fred	industry	Manufacturing, Industry - industry	2026-09-01
insee	marc-salair-net-moy-sexe	Évolution du salaire annuel net moyen des salariés dans le secteur privé à temps complet selon le sexe - marc-salair-net-moy-sexe	2026-08-02
insee	reve-niv-vie-pouv-achat-trim	Évolution du revenu disponible brut et du pouvoir d’achat - Données trimestrielles - reve-niv-vie-pouv-achat-trim	2026-08-02
log	microprocessor-trend-data	Microprocessor Trend Data - microprocessor-trend-data	2026-09-04

Données sur les taux de change

source	dataset	Title	Updated
ecb	EXR	Exchange Rates - EXR	2026-09-04
eurostat	ert_bil_eur_d	Euro/ECU exchange rates - daily data - ert_bil_eur_d	2026-09-04

Exchange Rate Data (X rates)

source	dataset	Title	Updated
ecb	EXR	Exchange Rates - EXR	2026-09-04
bis	XRU	Exchange Rates - XRU	2026-09-04
bis	XRU_D	Exchange Rates, Daily - XRU_D	2026-08-31
eurostat	ert_bil_eur_d	Euro/ECU exchange rates - daily data - ert_bil_eur_d	2026-09-04
eurostat	ert_h_eur_d	Former euro area national currencies vs. euro/ECU - daily data - ert_h_eur_d	2026-08-31
fred	xrates	Exchange Rates - xrates	2026-09-01
oecd	REFSERIES_MSIT	Exchange rates - REFSERIES_MSIT	2026-08-02
oecd	SNA_TABLE4	PPPs and exchange rates - SNA_TABLE4	2026-08-02
wdi	PA.NUS.FCRF	Official exchange rate (LCU per USD, period average) - PA.NUS.FCRF	2026-09-04