Exchange Rates

Data - ECB

Author

François Geerolf

Info

source dataset .html .RData

ecb

EXR

 2024-06-19 2024-06-15

Data on xrates

source dataset .html .RData

bdf

EXR

 2024-06-19 2024-06-18

bis

EER

 2024-06-19 2024-05-10

bis

EER_D

 2024-06-19 2024-05-10

bis

XRU

 2024-05-10 2024-06-07

bis

XRU_D

 2024-06-17 2024-05-10

ecb

EXR

 2024-06-19 2024-06-15

eurostat

ert_bil_eur_d

 2024-06-18 2024-06-08

eurostat

ert_h_eur_d

 2024-06-18 2024-06-08

fred

xrates

 2024-06-18 2024-06-07

gfd

xrates

 2024-06-18 2021-01-08

oecd

REFSERIES_MSIT

 2024-06-18 2024-04-30

oecd

SNA_TABLE4

 2024-06-18 2024-04-30

wdi

PA.NUS.FCRF

 2024-06-19 2024-04-30

LAST_COMPILE

LAST_COMPILE
2024-06-20

Last

TIME_PERIOD FREQ Nobs
2024-S1 H 30
2024-Q2 Q 59
2024-06-14 D 244
2024-05 M 682
2023 A 1255

FREQ

Code 
EXR %>%
  left_join(FREQ, by = "FREQ") %>%
  group_by(FREQ, Freq) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
FREQ Freq Nobs
D Daily 2759349
M Monthly 317998
Q Quarterly 170501
A Annual 37298
H Half-yearly 1921

COLLECTION

Code 
EXR %>%
  left_join(COLLECTION, by = "COLLECTION") %>%
  group_by(COLLECTION, Collection) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
COLLECTION Collection Nobs
A Average of observations through period 3271658
E End of period 15409

OBS_STATUS

Code 
EXR %>%
  left_join(OBS_STATUS, by = "OBS_STATUS") %>%
  group_by(OBS_STATUS, Obs_status) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
OBS_STATUS Obs_status Nobs
A Normal value 2503369
M Missing value; data cannot exist 759891
P Provisional value 21390
H Missing value; holiday or weekend 2417

Last

Code 
EXR %>%
  filter(TIME_PERIOD == last_time) %>%
  select_if(function(col) length(unique(col)) > 1) %>%
  select(KEY, CURRENCY, CURRENCY_DENOM, OBS_VALUE) %>%
  print_table_conditional()

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

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

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

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

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

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

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

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

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