Last data update: 05 sept. 2026, 01:47
Last compile: 05 sept. 2026, 01:50
Instantané quotidien de https://www.investing.com/currencies/streaming-forex-rates-majors : principales parités de change (et quelques cryptos). Une ligne par parité et par jour.
Dernier instantané
Code
last_day <- max(fx_majors$scraped_date)
fx_majors |>
filter(scraped_date == last_day) |>
transmute(Paire = pair, Bid = bid, Ask = ask, `+ Haut` = high, `+ Bas` = low,
`Var.` = chg, `Var. %` = chg_pct, Heure = quote_time) |>
arrange(Paire) |>
print_table_conditional()
Source : investing.com, instantané du 04 septembre 2026.
Évolution (base 100)
Code
sel <- c("EUR/USD", "GBP/USD", "USD/JPY", "USD/CHF", "USD/CNY", "EUR/GBP")
d <- fx_majors |> filter(pair %in% sel)
if (n_distinct(d$scraped_date) < 2) {
knitr::asis_output(paste0(
"_Série trop courte (", n_distinct(d$scraped_date),
" relevé) — le graphique se remplira au fil des instantanés quotidiens._"))
} else {
d |>
group_by(pair) |>
arrange(scraped_date) |>
mutate(idx = 100 * bid / first(bid)) |>
ggplot() + geom_line(aes(x = scraped_date, y = idx, color = pair)) +
theme_minimal() + xlab("") + ylab("Base 100") +
scale_color_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank())
}