TRV électricité

Data - CRE

Author

François Geerolf

Info

source dataset .html .RData

cre

TRV_electricite

 2024-10-10 2024-10-07

Données sur l’énergie

source dataset .html .RData

cre

TRV_electricite

 2024-10-10 2024-10-07

cre

TRV_gaz

 2024-10-07 2021-09-05

insee

econ-gen-solde-ech-ext-2

 2024-10-24 2023-11-01

insee

IPPMP-NF

 2024-10-09 2024-10-24

insee

t_5404

 2024-10-09 2021-08-01

sdes

bilan_energetique

 2024-10-07 2024-10-07

Exemple

Code 
include_graphics("https://cdn.hellowatt.fr/media/solution/images/evolution-prix-moyen-electricite-particulier-france-2019-2024_8qnxA6I.webp")

Notice

Lien: https://www.cre.fr/documents/open-data/historique-des-tarifs-reglementes-de-vente-delectricite-pour-les-consommateurs-residentiels.html

Historique des tarifs réglementés de vente d’électricité Bleu résidentiels (HT et TTC) en France métropolitaine continentale pour les options BASE et Heures pleines Heures creuses, de puissance souscrite inférieure ou égale à 36 kVA. Dans les zones non-interconnectées, les TRVE Hors Taxes sont les mêmes qu’en métropole.

Les taxes sont la CTA, la CSPE, la TCFE et la TVA.

TRV électricité inf36 BASE

  • DATE_DEBUT : date de début de validité du tarif.
  • DATE_FIN : date de fin de validité du tarif
  • P_SOUSCRITE : puissance souscrite du point de livraison.
  • PART_FIXE_HT : prix de l’abonnement annuel, en euros hors taxes.
  • PART_FIXE_TTC : prix de l’abonnement annuel, en euros toutes taxes comprises.
  • PART_VARIABLE_HT : prix du kWh consommé, en euros hors taxes.
  • PART_VARIABLE_TTC : prix du kWh consommé, en euros toutes taxes comprises.

TRV électricité inf36 HPHC

  • DATE_DEBUT : date de début de validité du tarif.
  • DATE_FIN : date de fin de validité du tarif
  • P_SOUSCRITE : puissance souscrite du point de livraison.
  • PART_FIXE_HT : prix de l’abonnement annuel, en euros hors taxes.
  • PART_FIXE_TTC : prix de l’abonnement annuel, en euros toutes taxes comprises.
  • PART_VARIABLE_HC_HT : prix du kWh consommé en heures creuses, en euros hors taxes.
  • PART_VARIABLE_HC_TTC : prix du kWh consommé en heures creuses, en euros toutes taxes comprises.
  • PART_VARIABLE_HP_HT : prix du kWh consommé en heures pleines, en euros hors taxes.
  • PART_VARIABLE_HP_TTC : prix du kWh consommé en heures pleines, en euros toutes taxes comprises.

Tarifs de base électricité

Valeur

Tous

Code 
TRV_electricite %>%
  filter(option == "Base") %>%
  group_by(P_SOUSCRITE) %>%
  complete(DATE_DEBUT = seq.Date(min(DATE_DEBUT), max(DATE_DEBUT), by = "day")) %>%
  mutate(P_SOUSCRITE = paste0(P_SOUSCRITE)) %>%
  fill(PART_VARIABLE_TTC) %>%
  ggplot() + geom_line(aes(x = DATE_DEBUT, y = PART_VARIABLE_TTC*1000, color = P_SOUSCRITE)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10),
                labels = dollar_format(accuracy = 1, pre = "", su = "€")) +
  theme(legend.position = c(0.2, 0.7),
        legend.title = element_blank())

2017-

Code 
TRV_electricite %>%
  filter(option == "Base") %>%
  group_by(P_SOUSCRITE) %>%
  complete(DATE_DEBUT = seq.Date(min(DATE_DEBUT), max(DATE_DEBUT), by = "day")) %>%
  mutate(P_SOUSCRITE = paste0(P_SOUSCRITE)) %>%
  fill(PART_VARIABLE_TTC) %>%
  filter(DATE_DEBUT >= as.Date("2017-01-01")) %>%
  ggplot() + geom_line(aes(x = DATE_DEBUT, y = PART_VARIABLE_TTC*1000, color = P_SOUSCRITE)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10),
                labels = dollar_format(accuracy = 1, pre = "", su = "€")) +
  theme(legend.position = c(0.2, 0.7),
        legend.title = element_blank())

Aout 2021-

Code 
TRV_electricite %>%
  filter(option == "Base") %>%
  group_by(P_SOUSCRITE) %>%
  complete(DATE_DEBUT = seq.Date(min(DATE_DEBUT), max(DATE_DEBUT), by = "day")) %>%
  mutate(P_SOUSCRITE = paste0(P_SOUSCRITE)) %>%
  fill(PART_VARIABLE_TTC) %>%
  filter(DATE_DEBUT >= Sys.Date() - years(3)) %>%
  ggplot() + geom_line(aes(x = DATE_DEBUT, y = PART_VARIABLE_TTC*1000, color = P_SOUSCRITE)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10),
                labels = dollar_format(accuracy = 1, pre = "", su = "€")) +
  theme(legend.position = c(0.2, 0.7),
        legend.title = element_blank())

Base 100

Aout 2021-

Code 
TRV_electricite %>%
  filter(option == "Base") %>%
  group_by(P_SOUSCRITE) %>%
  complete(DATE_DEBUT = seq.Date(min(DATE_DEBUT), max(DATE_DEBUT), by = "day")) %>%
  mutate(P_SOUSCRITE = paste0(P_SOUSCRITE)) %>%
  fill(PART_VARIABLE_TTC) %>%
  filter(DATE_DEBUT >= Sys.Date() - years(3)) %>%
  group_by(P_SOUSCRITE) %>%
  arrange(DATE_DEBUT) %>%
  mutate(value = 100*PART_VARIABLE_TTC/PART_VARIABLE_TTC[1]) %>%
  ggplot() + geom_line(aes(x = DATE_DEBUT, y = value, color = P_SOUSCRITE)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10),
                labels = dollar_format(accuracy = 1, pre = "")) +
  theme(legend.position = c(0.2, 0.7),
        legend.title = element_blank())

HT / TTC

Base 100

Code 
TRV_electricite %>%
  filter(option == "Base",
         P_SOUSCRITE == 9) %>%
  complete(DATE_DEBUT = seq.Date(min(DATE_DEBUT), max(DATE_DEBUT), by = "day")) %>%
  mutate(P_SOUSCRITE = paste0(P_SOUSCRITE)) %>%
  fill(PART_VARIABLE_TTC, PART_VARIABLE_HT) %>%
  select(DATE_DEBUT, PART_VARIABLE_TTC, PART_VARIABLE_HT) %>%
  gather(variable, value, - DATE_DEBUT) %>%
  filter(DATE_DEBUT >= Sys.Date() - years(3)) %>%
  group_by(variable) %>%
  arrange(DATE_DEBUT) %>%
  mutate(value = 100*value/value[1]) %>%
  ggplot() + geom_line(aes(x = DATE_DEBUT, y = value, color = variable)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(breaks = seq(1940, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 500, 10),
                labels = dollar_format(accuracy = 1, pre = "")) +
  theme(legend.position = c(0.2, 0.7),
        legend.title = element_blank())