Last observation: 2023 (N = 16)
First observation: 2007 (N = 7)
Last data update: 20 oct. 2026, 00:58
Last compile: 20 oct. 2026, 00:59
Ménages, France
Évolution du prix, 2007-2023
Code
prix_electricite_france_ue_2023_donnees |>
filter(graphique == "1_menages_composantes_prix") |>
mutate(composante = factor(composante, levels = c("TTC", "HTVA", "HTT"))) |>
ggplot() + geom_line(aes(x = annee, y = value, color = composante), linewidth = 1) +
theme_minimal() + xlab("") + ylab("€/MWh") +
theme(legend.title = element_blank()) +
scale_x_continuous(breaks = seq(2007, 2023, 2)) +
scale_color_manual(values = c("TTC" = rgb(0.85, 0.2, 0.2), "HTVA" = rgb(0.2, 0.5, 0.7), "HTT" = rgb(0.3, 0.3, 0.3)))
Décomposition du prix TTC, 2019-2023
Code
prix_electricite_france_ue_2023_donnees |>
filter(graphique == "2_menages_decomposition_ttc") |>
mutate(composante = factor(composante, levels = c("Réseau de distribution", "Réseau de transport", "Fourniture", "Taxes énergétique", "TVA"))) |>
ggplot() + geom_col(aes(x = annee, y = value, fill = composante)) +
theme_minimal() + xlab("") + ylab("€/MWh") +
theme(legend.title = element_blank()) +
scale_x_continuous(breaks = 2019:2023) +
scale_fill_viridis_d()
Comparaison européenne en 2023
Code
prix_electricite_france_ue_2023_donnees |>
filter(graphique == "3_menages_ue_2023", composante %in% c("Fourniture", "Réseau", "Taxes")) |>
group_by(pays) |>
mutate(total = sum(value, na.rm = T)) |>
ungroup() |>
mutate(pays = fct_reorder(pays, total),
composante = factor(composante, levels = c("Réseau", "Fourniture", "Taxes"))) |>
ggplot() + geom_col(aes(x = pays, y = value, fill = composante)) +
coord_flip() +
theme_minimal() + xlab("") + ylab("€/MWh, prix TTC usage domestique") +
theme(legend.title = element_blank(),
axis.text.y = element_text(size = 7)) +
scale_fill_manual(values = c("Réseau" = rgb(0.2, 0.5, 0.7), "Fourniture" = rgb(0.85, 0.6, 0.2), "Taxes" = rgb(0.6, 0.2, 0.4)))
Entreprises, France
Décomposition du prix TTC, 2020-2023
Code
prix_electricite_france_ue_2023_donnees |>
filter(graphique == "4_entreprises_decomposition_ttc") |>
mutate(composante = factor(composante, levels = c("Acheminement", "Fourniture", "Taxes énergétiques"))) |>
ggplot() + geom_col(aes(x = annee, y = value, fill = composante)) +
theme_minimal() + xlab("") + ylab("€/MWh") +
theme(legend.title = element_blank()) +
scale_x_continuous(breaks = 2020:2023) +
scale_fill_manual(values = c("Acheminement" = rgb(0.2, 0.5, 0.7), "Fourniture" = rgb(0.85, 0.6, 0.2), "Taxes énergétiques" = rgb(0.6, 0.2, 0.4)))
Prix hors TVA par tranche de consommation, 2007-2023
Code
prix_electricite_france_ue_2023_donnees |>
filter(graphique == "5_entreprises_tranches") |>
mutate(tranche = factor(tranche, levels = c("Ensemble", "(0,02 – 0,5 GWh)", "(2 – 20 GWh)", "(70 – 150 GWh)", "( ≥ 150 GWh)"))) |>
ggplot() + geom_line(aes(x = annee, y = value, color = tranche), linewidth = 1) +
theme_minimal() + xlab("") + ylab("€/MWh, hors TVA") +
theme(legend.title = element_blank()) +
scale_x_continuous(breaks = seq(2007, 2023, 2)) +
scale_color_viridis_d()
Comparaison européenne en 2023
Code
prix_electricite_france_ue_2023_donnees |>
filter(graphique == "6_entreprises_ue_2023", composante %in% c("Fourniture", "Réseau", "Taxes")) |>
group_by(pays) |>
mutate(total = sum(value, na.rm = T)) |>
ungroup() |>
mutate(pays = fct_reorder(pays, total),
composante = factor(composante, levels = c("Réseau", "Fourniture", "Taxes"))) |>
ggplot() + geom_col(aes(x = pays, y = value, fill = composante)) +
coord_flip() +
theme_minimal() + xlab("") + ylab("€/MWh, prix hors TVA") +
theme(legend.title = element_blank(),
axis.text.y = element_text(size = 7)) +
scale_fill_manual(values = c("Réseau" = rgb(0.2, 0.5, 0.7), "Fourniture" = rgb(0.85, 0.6, 0.2), "Taxes" = rgb(0.6, 0.2, 0.4)))