source | dataset | .html | .RData |
---|---|---|---|
eurostat | ert_bil_eur_d | 2024-11-01 | 2024-10-08 |
Euro/ECU exchange rates - daily data
Data - Eurostat
Info
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-01 | 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_bil_eur_d group_by(time) %>%
summarise(Nobs = n()) %>%
arrange(desc(time)) %>%
head(1) %>%
print_table_conditional()
time | Nobs |
---|---|
2024-10-07 | 31 |
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",
== "CHF" ~ "Switzerland",
currency == "GBP" ~ "United Kingdom")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland",
currency == "GBP" ~ "United Kingdom")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland",
currency == "GBP" ~ "United Kingdom")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland",
currency == "GBP" ~ "United Kingdom")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland",
currency == "GBP" ~ "United Kingdom")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
group_by(currency) %>%
arrange(date) %>%
mutate(values = 100*values/values[1]) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency 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]) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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"),
<= as.Date("2018-01-01")) %>%
date mutate(Geo = case_when(currency == "USD" ~ "United States",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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"),
<= as.Date("2015-07-01")) %>%
date mutate(Geo = case_when(currency == "USD" ~ "United States",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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",
== "CHF" ~ "Switzerland")) %>%
currency left_join(colors, by = c("Geo" = "country")) %>%
+ geom_line(aes(x = date, y = values, color = color)) +
ggplot 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 = "/€"))