To know more…

source	dataset	.html	.RData
eurostat	ert_h_eur_d	2024-11-18	2024-11-18

Data on xrates

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

LAST_COMPILE

LAST_COMPILE
2024-11-18

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