Code
ig_b("cre", "graphiquemars2024")
Données - CRE
Last data update: 04 sept. 2026, 00:59
Last compile: 04 sept. 2026, 00:59
Historique des tarifs réglementés de vente de gaz naturel hors taxes et toutes taxes comprises sur le réseau GRDF pour les clients résidentiels.
Les différents tarifs sont les suivants : * BASE, conseillé aux consommateurs soutirant moins de 1 MWh/an (usage cuisson). * B0, conseillé aux consommateurs soutirant entre 1 et 6 MWh/an (usage mixte). * B1, conseillé aux consommateurs soutirant entre 6 et 30 MWh/an (usage chauffage). * B2I, conseillé aux consommateurs soutirant plus de 30 MWh/an (usage petite chaufferie résidentielle).
Les tarifs B1 et B2I dépendent du niveau de prix (NP) de la commune du client. Le fichier « Niveaux de prix par commune pour les tarifs réglementés de gaz naturel d’Engie », disponible sur l’open data de la CRE, permet d’associer une commune à un des niveaux de prix, de 1 à 6.
ig_b("cre", "graphiquemars2024")
ig_b("cre", "evolution-prix-gaz-naturel-france")
ig_b("cre", "decembre2022")
ig_b("cre", "tarif-reglemente-2023-03-01")
ig_b("cre", "evolution-tarif-reglemente-gaz-HT")
TRV_gaz_B0 |>
ggplot() + geom_line(aes(x = DATE_DEBUT, y = PART_VARIABLE_TTC)) +
theme_minimal()
TRV_gaz_B1 |>
ggplot() + geom_line(aes(x = DATE_DEBUT, y = PART_VARIABLE_TTC_NP1)) +
theme_minimal()
names(TRV_gaz_B2I)# [1] "DATE_DEBUT" "DATE_FIN" "PART_FIXE_HT"
# [4] "PART_FIXE_TTC" "PART_VARIABLE_HT_NP1" "PART_VARIABLE_HT_NP2"
# [7] "PART_VARIABLE_HT_NP3" "PART_VARIABLE_HT_NP4" "PART_VARIABLE_HT_NP5"
# [10] "PART_VARIABLE_HT_NP6" "PART_VARIABLE_TTC_NP1" "PART_VARIABLE_TTC_NP2"
# [13] "PART_VARIABLE_TTC_NP3" "PART_VARIABLE_TTC_NP4" "PART_VARIABLE_TTC_NP5"
# [16] "PART_VARIABLE_TTC_NP6"
TRV_gaz_B2I |>
mutate(DATE_DEBUT = as.Date(DATE_DEBUT)) |>
gather(variable, value, -DATE_DEBUT, -DATE_FIN) |>
filter(variable %in% c("PART_VARIABLE_HT_NP1", "PART_VARIABLE_TTC_NP1")) |>
ggplot() + geom_line(aes(x = DATE_DEBUT, y = value, color = variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1940, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(accuracy = 1, pre = "", su = "€")) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank())
names(TRV_gaz_B2I)# [1] "DATE_DEBUT" "DATE_FIN" "PART_FIXE_HT"
# [4] "PART_FIXE_TTC" "PART_VARIABLE_HT_NP1" "PART_VARIABLE_HT_NP2"
# [7] "PART_VARIABLE_HT_NP3" "PART_VARIABLE_HT_NP4" "PART_VARIABLE_HT_NP5"
# [10] "PART_VARIABLE_HT_NP6" "PART_VARIABLE_TTC_NP1" "PART_VARIABLE_TTC_NP2"
# [13] "PART_VARIABLE_TTC_NP3" "PART_VARIABLE_TTC_NP4" "PART_VARIABLE_TTC_NP5"
# [16] "PART_VARIABLE_TTC_NP6"
TRV_gaz_B2I |>
mutate(DATE_DEBUT = as.Date(DATE_DEBUT)) |>
gather(variable, value, -DATE_DEBUT, -DATE_FIN) |>
filter(variable %in% c("PART_VARIABLE_HT_NP2", "PART_VARIABLE_TTC_NP2")) |>
ggplot() + geom_line(aes(x = DATE_DEBUT, y = value, color = variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1940, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(accuracy = 1, pre = "", su = "€")) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank())
names(TRV_gaz_B2I)# [1] "DATE_DEBUT" "DATE_FIN" "PART_FIXE_HT"
# [4] "PART_FIXE_TTC" "PART_VARIABLE_HT_NP1" "PART_VARIABLE_HT_NP2"
# [7] "PART_VARIABLE_HT_NP3" "PART_VARIABLE_HT_NP4" "PART_VARIABLE_HT_NP5"
# [10] "PART_VARIABLE_HT_NP6" "PART_VARIABLE_TTC_NP1" "PART_VARIABLE_TTC_NP2"
# [13] "PART_VARIABLE_TTC_NP3" "PART_VARIABLE_TTC_NP4" "PART_VARIABLE_TTC_NP5"
# [16] "PART_VARIABLE_TTC_NP6"
TRV_gaz_B2I |>
mutate(DATE_DEBUT = as.Date(DATE_DEBUT)) |>
gather(variable, value, -DATE_DEBUT, -DATE_FIN) |>
filter(variable %in% c("PART_VARIABLE_HT_NP3", "PART_VARIABLE_TTC_NP3")) |>
ggplot() + geom_line(aes(x = DATE_DEBUT, y = value, color = variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(breaks = seq(1940, 2100, 1) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
scale_y_continuous(breaks = seq(-100, 500, 10),
labels = dollar_format(accuracy = 1, pre = "", su = "€")) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank())