Euro/ECU exchange rates - daily data

Data - Eurostat

Author

François Geerolf

Info

source dataset .html .RData

eurostat

ert_bil_eur_d

 2024-06-20 2024-06-08

Data on xrates

source dataset .html .RData

bdf

EXR

 2024-06-23 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-19 2024-05-10

ecb

EXR

 2024-06-19 2024-06-23

eurostat

ert_bil_eur_d

 2024-06-20 2024-06-08

eurostat

ert_h_eur_d

 2024-06-20 2024-06-08

fred

xrates

 2024-06-18 2024-06-07

gfd

xrates

 2024-06-20 2021-01-08

oecd

REFSERIES_MSIT

 2024-06-20 2024-04-30

oecd

SNA_TABLE4

 2024-06-20 2024-04-30

wdi

PA.NUS.FCRF

 2024-06-20 2024-04-30

LAST_COMPILE

LAST_COMPILE
2024-06-24

Last

Code 
ert_bil_eur_d %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2024-06-07 30

currency

Code 
ert_bil_eur_d %>%
  left_join(currency, by = "currency") %>%
  group_by(currency, Currency) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

USD, CHF, GBP

All

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF", "GBP")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland",
                         currency == "GBP" ~ "United Kingdom")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_3flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.5),
                     labels = dollar_format(p = "", su = "/€"))

10 years

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF", "GBP")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(10)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland",
                         currency == "GBP" ~ "United Kingdom")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_3flags +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.05),
                     labels = dollar_format(p = "", su = "/€"))

2 years

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF", "GBP")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(2)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland",
                         currency == "GBP" ~ "United Kingdom")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_3flags +
  scale_x_date(breaks = "1 month",
               labels = date_format("%d %b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.05),
                     labels = dollar_format(p = "", su = "/€"))

1 year

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF", "GBP")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(1)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland",
                         currency == "GBP" ~ "United Kingdom")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_3flags +
  scale_x_date(breaks = "1 month",
               labels = date_format("%d %b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.05),
                     labels = dollar_format(p = "", su = "/€"))

1 month

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF", "GBP")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - months(1)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland",
                         currency == "GBP" ~ "United Kingdom")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_3flags +
  scale_x_date(breaks = "1 day",
               labels = date_format("%d %b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.02),
                     labels = dollar_format(p = "", su = "/€"))

NOK, CHF

All

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("NOK", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  mutate(Geo = case_when(currency == "NOK" ~ "Norway",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.5),
                     labels = dollar_format(p = "", su = "/€"))

10 years

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("NOK", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(10)) %>%
  mutate(Geo = case_when(currency == "NOK" ~ "Norway",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  group_by(currency) %>%
  arrange(date) %>%
  mutate(values = 100*values/values[1]) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 1), "-01-01")),
               labels = date_format("%Y")) +
  #theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.05),
                     labels = dollar_format(p = "", su = "/€"))

2 years

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("NOK", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(2)) %>%
  mutate(Geo = case_when(currency == "NOK" ~ "Norway",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  mutate(color = ifelse(Geo == "Norway", color2, color)) %>%
  group_by(currency) %>%
  arrange(date) %>%
  mutate(values = 100*values/values[1]) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = "1 month",
               labels = date_format("%b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(10, 400, 5))

USD, CHF

All

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 5), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.5),
                     labels = dollar_format(p = "", su = "/€"))

2013-2017

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= as.Date("2013-01-01"),
         date <= as.Date("2018-01-01")) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 1), "-01-01")),
               labels = date_format("%Y")) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.05),
                     labels = dollar_format(p = "", su = "/€", acc = 0.01))

2014-2015

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= as.Date("2014-07-01"),
         date <= as.Date("2015-07-01")) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = "1 month",
               labels = date_format("%b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.05),
                     labels = dollar_format(p = "", su = "/€", acc = 0.01))

10 years

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(10)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = as.Date(paste0(seq(1960, 2030, 1), "-01-01")),
               labels = date_format("%Y")) +
  #theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.05),
                     labels = dollar_format(p = "", su = "/€"))

2 years

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(2)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = "1 month",
               labels = date_format("%d %b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.01),
                     labels = dollar_format(p = "", su = "/€"))

1 year

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - years(1)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = "1 month",
               labels = date_format("%d %b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.01),
                     labels = dollar_format(p = "", su = "/€"))

1 month

Code 
ert_bil_eur_d %>%
  filter(currency %in% c("USD", "CHF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  filter(date >= Sys.Date() - months(1)) %>%
  mutate(Geo = case_when(currency == "USD" ~ "United States",
                         currency == "CHF" ~ "Switzerland")) %>%
  left_join(colors, by = c("Geo" = "country")) %>%
  ggplot + geom_line(aes(x = date, y = values, color = color)) +
  scale_color_identity() + theme_minimal()  + add_2flags +
  scale_x_date(breaks = "1 day",
               labels = date_format("%d %b %Y")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("") +
  scale_y_log10(breaks = seq(0, 10, 0.01),
                     labels = dollar_format(p = "", su = "/€"))