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

Data - Eurostat

Info

source dataset .html .RData
eurostat ert_h_eur_d 2024-11-01 2024-06-08

Data on xrates

source dataset .html .RData
bdf EXR 2024-07-26 2024-06-18
bis EER 2024-08-09 2024-08-28
bis EER_D 2024-08-28 2024-05-10
bis XRU 2024-05-10 2024-09-15
bis XRU_D 2024-08-28 2024-08-28
ecb EXR 2024-10-08 2024-11-01
eurostat ert_bil_eur_d 2024-11-05 2024-10-08
eurostat ert_h_eur_d 2024-11-01 2024-06-08
fred xrates 2024-11-01 2024-11-01
gfd xrates 2024-06-20 2021-01-08
oecd REFSERIES_MSIT 2024-09-15 2024-04-30
oecd SNA_TABLE4 2024-09-15 2024-04-30
wdi PA.NUS.FCRF 2024-08-28 2024-09-18

LAST_COMPILE

LAST_COMPILE
2024-11-05

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