Exchange Rate
Data - BDF
Info
Data on xrates
source | dataset | .html | .RData |
---|---|---|---|
2024-07-03 | 2024-06-18 | ||
2024-07-01 | 2024-05-10 | ||
2024-07-01 | 2024-05-10 | ||
2024-05-10 | 2024-07-01 | ||
2024-07-02 | 2024-05-10 | ||
2024-07-01 | 2024-07-03 | ||
2024-07-01 | 2024-06-08 | ||
2024-07-01 | 2024-06-08 | ||
2024-06-18 | 2024-07-26 | ||
2024-06-20 | 2021-01-08 | ||
2024-07-01 | 2024-04-30 | ||
2024-07-01 | 2024-04-30 | ||
2024-06-20 | 2024-04-30 |
LAST_COMPILE
LAST_COMPILE |
---|
2024-07-26 |
Last
date | Nobs |
---|---|
2024-06-17 | 30 |
FREQ
Code
%>%
EXR left_join(EXR_var, by = "variable") %>%
left_join(FREQ, by = "FREQ") %>%
group_by(FREQ, Freq) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
FREQ | Freq | Nobs |
---|---|---|
D | Quotidien | 227986 |
M | Mensuel | 18938 |
A | Annuel | 12 |
EXR_TYPE
Code
%>%
EXR left_join(EXR_var, by = "variable") %>%
left_join(EXR_TYPE, by = "EXR_TYPE") %>%
group_by(EXR_TYPE, Exr_type) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
EXR_TYPE | Exr_type | Nobs |
---|---|---|
SP00 | Cours spot | 246924 |
ERC0 | Taux de change réel (corrigé de l`IPC) | 12 |
EXR_SUFFIX
Code
%>%
EXR left_join(EXR_var, by = "variable") %>%
left_join(EXR_SUFFIX, by = "EXR_SUFFIX") %>%
group_by(EXR_SUFFIX, Exr_suffix) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
EXR_SUFFIX | Exr_suffix | Nobs |
---|---|---|
A | Moyenne sur la période | 233316 |
E | Fin de période | 13608 |
T | Pourcentage - changement sur 3 ans | 12 |
CURRENCY
Code
%>%
EXR left_join(EXR_var, by = "variable") %>%
left_join(CURRENCY, by = "CURRENCY") %>%
group_by(CURRENCY, Currency) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional
Swiss Franc, Dollar, Pound
All
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0.1, 3, 0.1),
labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.8, 0.80),
legend.title = element_blank())
2008-
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= as.Date("2008-01-01")) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0.1, 3, 0.1),
labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.8, 0.80),
legend.title = element_blank())
2021-
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= as.Date("2021-01-01")) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "3 months",
labels = date_format("%b %Y")) +
scale_y_continuous(breaks = seq(0.1, 3, 0.05),
labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
2 years before
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= Sys.Date() - years(2)) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "2 months",
labels = date_format("%b %Y")) +
scale_y_continuous(breaks = seq(0.1, 3, 0.05),
labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
2022-
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= as.Date("2022-01-01")) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "1 month",
labels = date_format("%b %Y")) +
scale_y_continuous(breaks = seq(0.1, 3, 0.05),
labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.8, 0.9),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
1 year-before
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= Sys.Date() - years(1)) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "1 month",
labels = date_format("%b %Y")) +
scale_y_log10(breaks = seq(0.1, 3, 0.04),
labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.15, 0.9),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
6 months
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= Sys.Date() - months(6)) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "7 days",
labels = date_format("%d %b %Y")) +
scale_y_log10(breaks = seq(0.1, 3, 0.04),
labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.15, 0.3),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
geom_text_repel(aes(x = date, y = value, label = value),
fontface ="plain", color = "black", size = 3)
3 months
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= Sys.Date() - months(3)) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "3 days",
labels = date_format("%d %b %Y")) +
scale_y_log10(breaks = seq(0.1, 3, 0.04),
labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.15, 0.3),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
geom_text_repel(aes(x = date, y = value, label = value),
fontface ="plain", color = "black", size = 3)
1 month
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF", "GBP"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= Sys.Date() - months(1)) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = "1 day",
labels = date_format("%d %b %Y")) +
scale_y_log10(breaks = seq(0.1, 3, 0.04),
labels = dollar_format(accuracy = .01, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.15, 0.75),
legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
geom_text_repel(aes(x = date, y = value, label = value), fontface ="plain", color = "black", size = 3)
Swiss Franc, Dollar
All
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0.1, 3, 0.1),
labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.8, 0.80),
legend.title = element_blank())
2008-
Code
%>%
EXR left_join(variable, by = "variable") %>%
filter(FREQ == "D",
%in% c("USD", "CHF"),
CURRENCY == "EUR") %>%
CURRENCY_DENOM filter(date >= as.Date("2008-01-01")) %>%
arrange(desc(date)) %>%
ggplot(.) + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(0.1, 3, 0.1),
labels = dollar_format(accuracy = .1, prefix = "", suffix = "/€")) +
theme(legend.position = c(0.8, 0.80),
legend.title = element_blank())