Former euro area national currencies vs. euro/ECU - daily data

Data - Eurostat

Author

François Geerolf

To know more…

source dataset Title .html .rData
eurostat ert_h_eur_d Former euro area national currencies vs. euro/ECU - daily data 2025-10-10 2025-05-24

Data on xrates

source dataset Title .html .rData
eurostat ert_h_eur_d Former euro area national currencies vs. euro/ECU - daily data 2025-10-10 2025-05-24
bdf EXR Exchange Rate 2025-08-28 2025-08-28
bis EER Real Effective Exchange Rates, Monthly 2025-08-25 2025-10-09
bis EER_D Real Effective Exchange Rates, Daily 2024-11-18 2024-05-10
bis XRU Exchange Rates 2025-08-28 2025-10-09
bis XRU_D Exchange Rates, Daily 2025-10-10 2025-05-24
ecb EXR Exchange Rates 2025-10-09 2025-08-29
eurostat ert_bil_eur_d Euro/ECU exchange rates - daily data 2025-10-10 2025-08-22
fred xrates Exchange Rates 2025-10-09 2025-10-09
gfd xrates Exchange Rates 2024-06-20 2021-01-08
oecd REFSERIES_MSIT Exchange rates 2024-09-15 2025-05-24
oecd SNA_TABLE4 PPPs and exchange rates 2024-09-15 2025-05-24
wdi PA.NUS.FCRF Official exchange rate (LCU per USD, period average) 2025-05-24 2025-09-27

LAST_COMPILE

LAST_COMPILE
2025-10-11

Last

Code 
ert_h_eur_d %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  head(1) %>%
  print_table_conditional()
time Nobs
2022-12-30 20

currency

Code 
ert_h_eur_d %>%
  left_join(currency, by = "currency") %>%
  group_by(currency, Currency) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
currency Currency Nobs
NLG Dutch guilder 12471
ATS Austrian schilling 12466
DEM German mark 12464
BEF Belgian franc 12460
LUF Luxembourg franc 12460
IEP Irish pound 12456
ITL Italian lira 12454
FRF French franc 12440
ESP Spanish peseta 12228
PTE Portuguese escudo 12228
FIM Finnish markka 12227
GRD Greek drachma 11660
MTL Maltese lira 8508
CYP Cyprus pound 8446
SIT Slovenian tolar 8059
LVL Latvian lats 7937
HRK Croatian kuna 7859
SKK Slovak koruna 7719
LTL Lithuanian litas 7587
EEK Estonian Kroon 6204

DEM, FRF

All

Code 
ert_h_eur_d %>%
  filter(currency %in% c("DEM", "FRF")) %>%
  left_join(currency, by = "currency") %>%
  day_to_date %>%
  mutate(Geo = case_when(currency == "DEM" ~ "Germany",
                         currency == "FRF" ~ "France",
                         currency == "ITA" ~ "Italy")) %>%
  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_continuous(breaks = seq(0, 10, 0.5))