Energy futures - energy_futures

Data - Investing

Author

François Geerolf

Last data update: 04 sept. 2026, 01:12

Last compile: 04 sept. 2026, 01:13

Instantané quotidien de https://fr.investing.com/commodities/energy : contrats à terme sur l’énergie. Une ligne par instrument et par jour.

Dernier instantané

Code 
last_day <- max(energy_futures$scraped_date)

energy_futures |>
  filter(scraped_date == last_day) |>
  transmute(Instrument = name, Échéance = month, Dernier = last,
            `+ Haut` = high, `+ Bas` = low, `Var.` = chg, `Var. %` = chg_pct,
            Heure = quote_time) |>
  arrange(Instrument) |>
  print_table_conditional()
Instrument Échéance Dernier + Haut + Bas Var. Var. % Heure
Dutch TTF Natural Gas Oct 2026 71.1500 72.9000 71.1500 -2.4840 -3.37 03/09
E-mini Crude Oil Oct 2026 91.0300 91.4500 90.5500 0.0300 0.03 05:20:49
E-mini Crude Oil c2 Nov 2026 88.3000 89.4500 86.9300 0.0300 0.03 03/09
Emissions de carbone Déc 2026 83.5300 84.1000 83.0200 -0.5400 -0.64 03/09
Essence RBOB Oct 2026 3.1603 3.1603 3.1529 0.0008 0.03 01:11:50
Fioul Oct 2026 4.6005 4.6007 4.5923 0.0018 0.04 01:08:36
Gasoil Londres Sept 2026 1406.5000 1406.5000 1406.5000 -25.7500 -1.80 03/09
Gaz naturel Oct 2026 2.9260 2.9280 2.9210 -0.0020 -0.07 01:11:35
Malaysian Crude Palm Oil 1239.5000 1239.5000 1239.5000 -4.7500 -0.38 02/09
Malaysian Crude Palm Oil c2 1267.2500 1267.2500 1267.2500 39.5000 3.22 01/09
Micro Henry Hub Natural Gas Oct 2026 2.9240 2.9240 2.9240 0.0110 0.38 00:47:15
Micro WTI Crude Oil Oct 2026 91.7300 91.7300 91.7300 0.4300 0.47 00:36:36
Pétrole Brent Nov 2026 95.9200 95.9300 95.0700 0.2900 0.30 03/09
Pétrole brut WTI Oct 2026 91.8400 91.8500 91.6200 0.5400 0.59 01:11:58

Source : investing.com, instantané du 03 septembre 2026.

Évolution (base 100)

Code 
sel <- c("Pétrole brut WTI", "Pétrole Brent", "Gaz naturel",
         "Dutch TTF Natural Gas", "Fioul", "Essence RBOB")
d <- energy_futures |> filter(name %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(name) |>
    arrange(scraped_date) |>
    mutate(idx = 100 * last / first(last)) |>
    ggplot() + geom_line(aes(x = scraped_date, y = idx, color = name)) +
    theme_minimal() + xlab("") + ylab("Base 100") +
    scale_color_commodity() +
    theme(legend.position = "bottom", legend.title = element_blank())
}