DPE - Analyse de la base dpe_all - dpe_all

Données - ADEME

Auteur

François Geerolf

Info

DPE par mois

  • Environ 200,000 - 250,000 DPE / mois.

Table

Code 
DPE_par_mois |>
  print_table_conditional()

Graph

Code 
DPE_par_mois |>
  filter(year_month <= as.Date("2023-12-01")) |>
  ggplot() + geom_line(aes(x = year_month, y = Nobs)) + 
  theme_minimal() + xlab("") + ylab("Nombre de DPE / mois") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "1 month"),
               labels = date_format("%B %Y")) +
  scale_y_continuous(labels = dollar_format(pre = "")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Version DPE

Code 
version_DPE |>
  print_table_conditional()
Modèle_DPE Version_DPE Nobs
DPE 3CL 2021 méthode logement 1.0 351141
DPE 3CL 2021 méthode logement 1.1 248248
DPE 3CL 2021 méthode logement 2.0 315044
DPE 3CL 2021 méthode logement 2.1 1276721
DPE 3CL 2021 méthode logement 2.2 2668459
DPE 3CL 2021 méthode logement 2.3 1436940

Version DPE par mois

Table

Code 
version_DPE_par_mois |>
  print_table_conditional()

Graph

Code 
version_DPE_par_mois |>
  filter(year_month <= as.Date("2023-12-01")) |>
  ggplot() + geom_line(aes(x = year_month, y = Nobs, color = Version_DPE)) + 
  theme_minimal() + xlab("") + ylab("Nombre de DPE / mois, par version") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "1 month"),
               labels = date_format("%B %Y")) +
  scale_y_continuous(labels = dollar_format(pre = ""),
                     breaks = seq(0, 500000, 50000)) +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        legend.direction = "horizontal",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Graph Stocked

Code 
version_DPE_par_mois |>
  filter(year_month <= as.Date("2023-12-01")) |>
  ggplot() + geom_area(aes(x = year_month, y = Nobs, fill = Version_DPE), alpha = 0.5) + 
  theme_minimal() + xlab("") + ylab("Nombre de DPE / mois, par version") +
  scale_x_date(breaks = seq.Date(as.Date("2019-12-01"), as.Date("2024-01-01"), "1 month"),
               labels = date_format("%B %Y")) +
  scale_y_continuous(labels = dollar_format(pre = ""),
                     breaks = seq(0, 500000, 50000)) + 
  #ofce::theme_ofce(base_family = "arial") +
  theme(legend.position = c(0.2, 0.8),
        legend.title = element_blank(),
        legend.direction = "horizontal",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))