Exchange Rates - EXR

Data - ECB

Info

Last observation: H: 2026-S1 (N = 29) · Q: 2026-Q2 (N = 630) · D: 2026-08-14 (N = 247) · M: 2026-07 (N = 696) · A: 2025 (N = 1274)

First observation: M: 1981-09 (N = 13) · D: 1981-09-21 (N = 13) · Q: 1981-Q4 (N = 13) · A: 1982 (N = 13) · H: 1999-S1 (N = 35)

Last data update: 16 aoû 2026, 23:49. Last compile: 17 aoû 2026, 23:45

Structure

FREQ

CURRENCY

CURRENCY_DENOM

EXR_TYPE

EXR_SUFFIX

OBS_STATUS

OBS_CONF

COLLECTION

DECIMALS

SOURCE_AGENCY

UNIT

UNIT_MULT

Swiss Franc, Dollar, Pound

All

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-

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-

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

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-

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

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

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

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

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

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-

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

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

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

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