---
title: "Production thermique issue de sources renouvelables"
subtitle: "Chaleur produite, selon la source de production, Vaud"
lang: fr
author: "DGE-DIREN"
date: last-modified # Renvoie automatiquement la date de dernière modification du .qmd
params: # ! `open_params_metadata_help()` pour des instructions de remplissage détaillées
fonction: 3 # Valeur numérique : 0=Non-défini/1=Description/2=Orientation/3=Pilotage
nature: 2 # Valeur numérique : 0=Non-défini/1=Actions/2=Effets/3=Impacts
idThematique: 08.02.03.02 # Identifiant selon nomenclature obsind theme/sous-theme/objet/id (p.ex. 08.03.01)
niveauPublication: 2 # Valeur numérique : 0=Non-défini/1=Interne/2=Public. Tout autre choix génère un avertissement
niveauDetail: Canton # Texte libre qui indique le niveau minimal d'agrégation disponible pour l'indicateur (canton, commune, région, installation, véhicule, etc.)
frequenceMAJ: Annuel # Texte libre, idéalement à choisir parmi les codes suivants : mensuel/semestriel/annuel/biannuel/mensuel/tous les x ans/non-défini
moisMAJ: 9 # Valeur numérique : 0=Non-défini/1=Janvier/2=Février, etc.
disponibleDepuis: 2015 # Valeur numérique Année (aaaa) (p.ex. 2000)
personneReference: Steve Ducommun # Prénom+Nom de la personne référente de l'indicateur
mailReference: stat.energie@vd.ch # E-mail ACV (générique ou nominal, se terminant par @vd.ch)
uuid: 3906d732-b5c3-44ab-8d0a-79728fb45073 # !NE PAS MODIFIER! Identifiant unique généré automatiquement à la création de la fiche
uuidParent: null # Identifiant(s) unique(s) des indicateurs parents de l'indicateur actuel (format uuid avec séparateur '/' si plusieurs uuid)
uuidEnfant: null # Identifiant(s) unique(s) des indicateurs enfants de l'indicateur actuel (format uuid avec séparateur '/' si plusieurs uuid)
uuidConnexe: null # Identifiant(s) unique(s) des indicateurs connexes à l'indicateur actuel (format uuid avec séparateur '/' si plusieurs uuid)
majCatalogue: 1 # Valeur numérique : 0=Non/1=Oui pour mettre à jour les métadonnées dans le catalogue des indicateurs (connexion au disque partagé ObsInd requise)
format:
html:
other-links: # Copier la structure ci-dessous pour remplacer/ajouter d'autres liens sous la table des matières
- text: Infos statistiques énergie
href: 'https://www.vd.ch/environnement/energie/chiffres-cles-et-statistiques-energie-vaud/'
target: '_blank'
- text: Profil climatique communes
href: 'https://stat-climat-vd.ch/profil-climat/'
target: '_blank'
- text: Direction de l'énergie
href: 'https://www.vd.ch/djes/dge/dge-diren'
target: '_blank'
metadata-files: # Ne pas supprimer !
- assets/format-options.yml
editor_options:
chunk_output_type: console
---
<!-- Les métadonnées ci-dessus doivent être remplies pour chaque fiche. Lorsqu'un champ n'est disponible, il est possible d'écrire "" ou NULL -->
<!-- Aide au remplissage : `obsindVD::open_aide_remplissage_help()` (lancer la ligne de code dans la console) -->
```{r setup}
#| echo: false
#| warning: false
#| message: false
#| results: asis
# version: 1.2.2 (01.09.2026)
# -----------------------------------------------------------------------------
# Ne rien modifier dans ce bloc de code !
# Ce bloc doit être lancé pour charger les métadonnées dans l'environnement !
# -----------------------------------------------------------------------------
# update_model_setup_code() pour mettre à jour ce bloc avec la version du dernier modèle
# Chargement (ou installation) des librairies disponibles sur CRAN
if (!require("pacman")) install.packages("pacman")
pacman::p_load(tidyverse, readxl, glue, gt, DT, ggiraph, scales, ggtext)
# Chargement de la librairie obsindVD privée
# Pour l'installation : suivre les instructions dans le BitBucket : https://dsigit.etat-de-vaud.ch/outils/git/projects/DGE/repos/obsind/
# Si l'accès n'est pas autorisé, faire une demande à l'Observatoire des indicateurs
library(obsindVD)
# Par défaut : ouvrir l'aide obsindVD (supprimer cette ligne si superflu)
open_fiche_quarto_help()
# Vérifie, ajoute et insère des valeurs par défaut pour les métadonnées manquantes (en-tête YAML)
complete_metadata_params()
# Extraction + validation des métadonnées (en-tête YAML)
selected_metadata <- return_selected_metadata()
# Ajout de l'identifiant dans les en-têtes du document html
display_identifiant(value = selected_metadata[['Identifiant thématique']])
```
```{r}
# Préciser quelle est l'année maximale recherchée (permet d'automatiser la recherche du bon dossier et fichier pour les données PRONOVO)
an_max <- 2025
```
::: {.callout-tip .narrow icon="false" collapse="true"}
# Métadonnées de l'indicateur
```{r}
# --------------------------------------
# Présentation des métadonnées ----
# --------------------------------------
tidyr::tibble(
`Attribut` = names(selected_metadata),
`Valeur` = selected_metadata
) |>
gt_table_ind()
```
:::
```{r}
# ---------------------------------------------------------
# Tableau de synthèse ----
# ---------------------------------------------------------
# Pour de l'aide sur comment remplir ce tableau de synthèse lancer la commande suivante dans la console :
# obsindVD::open_tableau_synthese_help()
# Pour afficher l'aide spécifique à une fonction, ajouter '?' avant l'appel de la fonction :
# ?icon_up()
tableau_synthese <- list(
# Premier indicateur... attention à la structure !
list(
titre_indicateur = " Production thermique issue de sources renouvelables, Vaud <b>[GWh]</b>", # Par défaut = titre issu de la métadonnée (en-tête du document)
valeur_2025 = 2648,
obj_2030 = 2372, # valeur numérique OU icônes de flèches
obj_2040 = NA,
obj_2050 = 3296,
tendance_observée = icon_up(type = "trend", text = paste0("2019-", an_max)), # icon_up(), icon_flat(), icon_down()
tendance_évaluée = icon_happy() # icon_happy(), icon_meh(), icon_sad()
)
,
# Second indicateur... Répliquer la même structure autant de fois que d'indicateurs à afficher dans le tableau de synthèse
list(
titre_indicateur = "Production thermique de sources renouvelables par habitant, Vaud <b>[kWh/hab]</b>",
valeur_2025 = 3064,
obj_2030 = icon_up(type = "obj"), # valeur numérique OU icônes de flèches
obj_2040 = NA, # On peut modifier 'Cible non chiffrée' en modifiant l'argument text = "" par exemple pour ne rien afficher
obj_2050 = icon_up(type = "obj"),
tendance_observée = icon_up(type = "trend", text = paste0("2019-", an_max)), # text obligatoire pour type = 'trend'
tendance_évaluée = icon_happy() #icon_happy(tooltip = "Exemple d'info-bulle personnalisé") # 'tooltip' modifie l'info-bulle par défaut
)
)
# Impression du tableau de synthèse
print_tableau_synthese(tableau_synthese) # Le résultat peut être customisé comme un objet {gt}
```
# Description {#sec-description}
Cet indicateur informe sur la quantité d’énergie thermique produite annuellement à partir de sources renouvelables sur le territoire vaudois. Les informations sont présentées par source de production. Il traduit l’évolution de la production locale de chaleur sans recours aux ressources fossiles ou aux chauffages électriques directs.
# Cadre de référence {#sec-cadre-reference}
Les objectifs de la production thermique de sources renouvelables sont définis dans la Conception cantonale de l’énergie ([CoCEn 2019](https://www.vd.ch/fileadmin/user_upload/themes/environnement/energie/fichiers_pdf/CoCEn_Pub_complete_20190816.pdf)). L’objectif général est de remplacer les chauffages fossiles et électriques directs par des chauffages alimentés par des énergies renouvelavles et d’atteindre une production issue de sources renouvelables annuelle de 2,4 TWh<sub>th</sub> en 2030 et de 3,3 TWh<sub>th</sub> en 2050.
# Graphique {#sec-graphique}
```{r}
# ---------------------------------------------------------
# Préparation des données à partir des données brutes
# ---------------------------------------------------------
# 1 - Données de production par source d'énergie
# Les données du document data_brut.xlsx doivent avoir été préparées (à partir du document "P:\DIREN\11 POLITIQUE ENERG\11.08 Indicateurs et stat\1 Indicateurs DIREN\3-Fiches IND MET OBJ\INDicateur\Documents de travail - Word-Excel\IND_08.02.03.02_Production_Thermique_Renouvelable.xlsx")
data_brut_read <- readxl::read_excel(("./data/data_brut.xlsx"),
sheet = "data_final")
data_long <- data_brut_read |>
pivot_longer(
cols = -1, # toutes les colonnes sauf la 1ère
names_to = "ANNEE",
values_to = "VALEUR"
)
# ---------------------------------------------------------
# 2 - Données POPULATION (lecture des données de StatVD qui ont été traitées. Voir code sous 02.11 Bases de données >> POPULATION >> 03_scripts_traitement)
# Variables sont : ANNEE et HABITANTS
tryCatch(
expr = {
read_delim("P:/DIREN/02 PILOTAGE DIREN/02.11 Bases de donnees/POPULATION/04_extractions_traitees/population.csv", delim=";") |>
write_delim("./data/population.csv", delim = ";")
},
error = function(e) message("Attention: la table population n'a pas pu être réactualisée avec les données brutes du P:/ ", e$message)
)
population <- read_delim("./data/population.csv", delim = ";")
```
```{r }
#| label: fig-G1
##| fig-cap: Production thermique de sources renouvelables, Vaud
#| fig.width: 8
#| fig.asp: 0.6
# créer data ressources (enlever total et années avec objectifs)
ressources <- data_long |>
# enlever les totaux
filter(VARIABLES != "Total") |>
#enlever les objectifs des années
filter(!ANNEE %in% c(2030, 2050)) |>
rename(GWH = VALEUR) |>
mutate(ANNEE = as.numeric(ANNEE))
# créer data objectifs (uniquement objectifs des totaux)
objectifs <- data_long |>
# garder uniquement les totaux
filter(VARIABLES == "Total") |>
# garder uniquement les années d'objectifs
filter(ANNEE %in% c(2030, 2050)) |>
# enlever la colonne VARIABLES
select(-VARIABLES)|>
rename(GWH = VALEUR)|>
mutate(ANNEE = as.numeric(ANNEE))
# Ajouter un trou pour séparer les consommations des objectifs
last_year <- max(ressources$ANNEE, na.rm = TRUE)
gap1 <- last_year + 1 # entre dernière année et 2030
gap2 <- 2030 + 1 # entre 2030 et 2050
annees_hist <- sort(unique(ressources$ANNEE))
annees_levels <- c(
annees_hist,
gap1,
2030,
gap2,
2050
)
# Ajout les trous à chaque dataset
add_missing_years_prod <- function(df) {
df |>
tidyr::complete(
ANNEE = annees_levels,
VARIABLES
)
}
add_missing_years_simple <- function(df) {
df |>
tidyr::complete(
ANNEE = annees_levels
)
}
ressources <- add_missing_years_prod(ressources) |>
mutate(GWH = tidyr::replace_na(GWH, 0))
objectifs <- add_missing_years_simple(objectifs)
# ordrer les ressources selon la quantité
ordre_type <- ressources |>
filter(ANNEE == last_year) |>
arrange(GWH) |>
pull(VARIABLES)
tous_les_types <- c("Objectifs CoCEn 2019", ordre_type)
annees_labels <- as.character(annees_levels)
ressources <- ressources |>
mutate(
ANNEE = factor(as.character(ANNEE), levels = annees_labels),
VARIABLES = factor(as.character(VARIABLES), levels = tous_les_types),
GWH = as.numeric(tidyr::replace_na(GWH, 0))
)
objectifs <- objectifs |>
mutate(
ANNEE = factor(as.character(ANNEE), levels = annees_labels),
VARIABLES = factor("Objectifs CoCEn 2019", levels = tous_les_types),
GWH = as.numeric(tidyr::replace_na(GWH, 0))
)
objectifs_total <- objectifs |>
filter(GWH != 0) |>
mutate(ANNEE = as.numeric(as.character(ANNEE))) |>
select(ANNEE, GWH)
prod_tot <- ressources |>
mutate(ANNEE = as.numeric(as.character(ANNEE))) |>
pivot_wider(
names_from = VARIABLES,
values_from = GWH
) |>
filter(ANNEE <= an_max) |>
mutate(GWH = rowSums(across(-ANNEE), na.rm = TRUE)) |>
select(ANNEE, GWH)
g1_plot <- ggplot() +
# Bars (objectives )
geom_col_interactive(
data = objectifs,
aes(x = ANNEE, y = GWH, fill = VARIABLES,
tooltip = paste0("Objectifs de production thermique en ", ANNEE, " : ", round(GWH, 0), " GWh"),
data_id = as.character(ANNEE)),
width = 0.7,
color = NA
) +
geom_col_interactive(
data = ressources,
aes(
x = ANNEE,
y = GWH,
fill = VARIABLES,
tooltip =paste("Production thermique à partir de ", as.character(VARIABLES), " en ", ANNEE, " : ", round(GWH, 0), " GWh"),
data_id = paste0(as.character(ANNEE), as.character(VARIABLES))),
width = 0.7,
position = "stack",
color = NA
) +
# Totaux au-dessus des histogrammes
geom_text(
data = prod_tot |> bind_rows(objectifs_total),
inherit.aes = FALSE,
aes(
x = as.factor(ANNEE),
y = GWH,
label = label_number(accuracy = 1, big.mark = "'")(GWH)
),
vjust = -0.5,
size = 2
) +
scale_fill_manual(
values = c(
"STEP" ="goldenrod4",
"Déchets méthanisables" ="darkolivegreen3",
"Géothermie" ="#EE2C2C",
"Biomasse agricole" ="gold3",
"Solaire thermique" ="yellow2",
"Déchets incinérables" ="#E6550D",
"Bois-énergie" ="green4",
"Chaleur ambiante" ="cadetblue1",
"Objectifs CoCEn 2019" = "grey80"
),
breaks = tous_les_types,
name = NULL
) +
scale_x_discrete(
drop = FALSE,
labels = function(x) {
num_x <- as.numeric(as.character(x))
ifelse(
num_x %in% c(gap1, gap2),
"", # cacher les gaps
ifelse(num_x %% 5 == 0, num_x, "") # afficher seulement tous les 5 ans
)
}
)+
scale_y_continuous(
name = "Production thermique [GWh]",
labels = scales::label_number(big.mark = "'", decimal.mark = "."),
expand = expansion(mult = c(0, 0.1))
) +
# Titles and caption
labs(
title = str_wrap("**Production thermique issue de sources renouvelables**", width = 73) |>
stringr::str_replace_all("\n", "<br>") ,
subtitle = str_wrap("Chaleur produite, selon la source de production, Vaud", width = 73) |>
stringr::str_replace_all("\n", "<br>") ,
x = NULL,
caption = "Source: DGE-DIREN<br>Etat au 25.08.2026"
) +
theme_minimal(base_size = 13) +
theme(
plot.title = element_markdown(face = "bold", size = 12),
plot.subtitle = element_markdown(size = 10),
plot.caption = element_markdown(hjust = 0, size = 9, margin = margin(t = 5), face = "italic"), # !! MWR: rajout italic
plot.caption.position = "plot",
plot.margin = margin(10, 10, 30, 10),
legend.position = "right",
legend.box = "horizontal",
legend.text = element_text(size = 10),
legend.title = element_text(size = 12),
axis.text = element_text(size = 8),
axis.title = element_text(size = 10)
)
obsindVD::girafe_light(g1_plot,
# !!MWR : modification du comportement de surlignage : on ajoute de la transparence aux éléments non-survolés !
options = list(
opts_hover_inv(css = "opacity:0.5;"),
opts_hover(css = "opacity:1;"),
# Ajout du nom du PNG téléchargé + remplacement de 'download' par 'télécharger' (survol icône)
opts_toolbar(
position = "topright",
hidden = c("zoom", "selection"),
pngname = paste0(selected_metadata[['Identifiant thématique']], "_G1"),
tooltips = list(
saveaspng = "Télécharger"
)
)
)
)
ggsave(glue("./images/g1_Production_thermique_2015-{an_max}.png"), width = 8, height = 6, dpi = 300)
```
# Analyse {#sec-analyse}
<!-- Aide au remplissage : consulter la section correspondante avec `obsindVD::open_aide_remplissage_help()` -->
## Description statistique {#sec-analyse-description}
La production indigène d’énergie thermique issue de sources renouvelables était de 2,7 TWh<sub>th</sub> en 2025 (voir @fig-G1), ce qui correspond à 3'064 kWh<sub>th</sub>th par habitant. La chaleur produite sur sol vaudois valorisant les sources renouvelables a augmenté en moyenne de 7,9 % par an entre 2019 et 2025.
Depuis 2018, la chaleur produite par les pompes à chaleur (chaleur ambiante) est devenue la première source de production de chaleur renouvelable sur sol vaudois, devant le bois énergie (voir @tbl-T1). En 2025, la chaleur ambiante représentait 63% de la production thermique issue de sources renouvelables indigène, le bois-énergie 21% et les déchets incinérables 11%.
## Interprétation {#sec-analyse-interpretation}
La tendance observée depuis 2019 est considérée comme bonne: en 2025, la production thermique issue de sources renouvelables a dépassé les objectifs fixés pour 2030. Si la croissance observée entre 2019 et 2025 est maintenue, elle devrait permettre d’atteindre les objectifs à long terme (2050).
## Périmètre et limites {#sec-analyse-perimetre}
Pour la production thermique à partir de la chaleur extraite de l'environnement (utilisant des pompes à chaleur), ainsi que pour celle à partir de déchets incinérables, les parts non-renouvelables n'ont pas été retirées. Pour la chaleur ambiante, la part non renouvelable concerne l’électricité nécessaire pour le fonctionnement des PAC. Pour les déchets incinérables, une étude de l'Office fédéral de l'énergie (OFEN, 2023) montre que seule la moitié des déchets sont constitués de matières renouvelables (bois, papier, carton, déchets végétaux).
Des informations plus détaillées se trouvent dans les fiches indicateurs spécifiques de production selon les différentes sources (voir @sec-ref-fiches).
# Tableau {#sec-tableaux}
<!-- Aide au remplissage : consulter la section correspondante avec `obsindVD::open_aide_remplissage_help()` -->
```{r}
#| label: tbl-T1
##| tbl-cap: Production thermique de sources renouvelables, Vaud
# préparer les données par ressources (pivot_wider)
# df <- data_long |>
# pivot_wider(names_from = VARIABLES, values_from = VALEUR) |>
# select(ANNEE, "Total", "Chaleur ambiante", "Bois-énergie", "Déchets incinérables", "Solaire thermique", "Biomasse agricole", "Géothermie", "Déchets méthanisables", "STEP")
data_wide <- data_long |>
pivot_wider(names_from = VARIABLES, values_from = VALEUR) |>
mutate(ANNEE = as.numeric(ANNEE)) |>
select(ANNEE, "Total", "Chaleur ambiante", "Bois-énergie", "Déchets incinérables", "Solaire thermique", "Biomasse agricole", "Géothermie", "Déchets méthanisables", "STEP")
# Production par habitant
data_total <- data_wide |>
select(ANNEE, "Total")
prod_hab <- data_total |>
left_join(population, by = "ANNEE") |>
mutate(KWH_HAB = (Total*1000000) / HABITANTS) |>
select(ANNEE, KWH_HAB)
# Apparier données Production par source et Production totale par habitants
df <- data_wide |>
left_join(prod_hab, by = "ANNEE")
df |>
gt() |>
tab_header(title = md("**Production thermique issue de sources renouvelables**"),
subtitle = "Chaleur produite, selon la source de production, Vaud") |>
# Gestion des NA : remplace les cases vides par un tiret
sub_missing(columns = -ANNEE, missing_text = "—" ) |>
fmt_number(columns = -ANNEE, sep_mark = "'", decimals = 0) |>
cols_label(
ANNEE = "Année",
KWH_HAB = "Par habitant"
) |>
cols_width(everything() ~ pct(100 / ncol(df))) |>
tab_style(style = cell_text(weight = "bold"),
locations = list(cells_column_labels(columns = c("ANNEE", "Total", "KWH_HAB")),
cells_body(columns = c("ANNEE", "Total", "KWH_HAB")))) |>
tab_style(
style = cell_text(align = "center"),
locations = cells_column_labels()
) |>
tab_style(
style = cell_text(align = "left"),
locations = cells_column_labels(ANNEE)
) |>
cols_align(align = "center", columns = ANNEE) |>
cols_label_with(
columns = -c(ANNEE, KWH_HAB),
fn = \(col) md(paste0(col, "\n\n[GWh]"))
) |>
cols_label_with(
columns = KWH_HAB,
fn = \(col) md(paste0(col, "\n\n[kWh / hab]"))
) |>
tab_style(style = cell_borders(sides = "all"),
locations = list(cells_column_labels(), cells_column_spanners())) |>
tab_style(style = cell_borders(sides = c("left", "right")),
locations = list(cells_body())) |>
tab_style(
style = cell_text(align = "left"),
locations = list(cells_footnotes(), cells_source_notes())
) |>
tab_style(
style = cell_borders(sides = "top", style = "dashed", color = "lightgrey", weight = px(1)),
locations = cells_body(rows = as.numeric(as.character(ANNEE)) == min(as.numeric(as.character(objectifs$ANNEE)))) # applies to first row
) |>
tab_options(column_labels.border.bottom.color = "black") |>
fmt_missing(columns = everything(), missing_text = "") |>
tab_footnote(footnote = "Non compris la production à partir de ressources fossiles (mazout, gaz) et de chauffages électriques directs. Bien que la production thermique à partir de la chaleur extraite de l'environnement et de déchets incinérables n'est pas considérée comme totalement renouvelable, l'ensemble de ces productions a été retenu.",
locations = cells_title(groups = "title"),
placement = "right") |>
tab_footnote(footnote = "Objectifs définis dans la conception cantonale de l'énergie (CoCEn 2019).",
locations = cells_body(columns = ANNEE, rows = as.numeric(as.character(ANNEE)) > year(Sys.Date())),
placement = "right") |>
tab_footnote(footnote = "Chaleur produite à partir de la chaleur extraite de l'environnement, sans soustraction de l'électricité utilisée, même si elle ne peut pas être considérée 100% renouvelable..",
locations = cells_column_labels(columns = "Chaleur ambiante"),
placement = "right") |>
tab_footnote(footnote = "Hors bois usagé des déchets incinérables.",
locations = cells_column_labels(columns = "Bois-énergie"),
placement = "right") |>
tab_footnote(footnote = "Inclus bois usagé. Totalité de la chaleur produite à partir de déchets incinérables, même si la part non renouvelable est estimée à 50% par l'Office fédéral de l'énergie (OFEN).",
locations = cells_column_labels(columns = "Déchets incinérables"),
placement = "right") |>
# tab_footnote(footnote = " La production thermique par extraction des eaux usées traitées avec un système de pompe à chaleur ou par incinération en four dédié (STEP de Lausanne-Vidy) n'ont pas été estimées. La production thermique obenue par traitement en usine d'incinération (TRIDEL, Holcim) est incluse dans les déchets incinérables.",
# locations = cells_column_labels(columns = "STEP"),
# placement = "right") |>
tab_footnote(footnote = " Lavey-les-Bains et Yverdon-les-Bains.",
locations = cells_column_labels(columns = "Géothermie"),
placement = "right") |>
opt_table_outline(style = "solid", width = px(2), color = "lightgrey") |>
tab_source_note(
source_note = md("*Sources : DGE-DIREN<br>Etat au 25.08.2026*")
)
```
# Méthode {#sec-methode}
Les méthodes de calcul pour estimer la production thermique selon les différentes sources se trouvent dans des fiches méthodes spécifiques pour chaque agent énergétique (voir @sec-ref-fiches).
# Comparaison {#sec-comparaison}
Aucune comparaison n'a été effectuée, que ce soit d'un point de vue méthodologique, avec la situation dans d'autres cantons ou au niveau fédéral.
# Références {#sec-ref}
<!-- Aide au remplissage : consulter la section correspondante avec `obsindVD::open_aide_remplissage_help()` -->
## Fiches associées {#sec-ref-fiches}
**Fiches Méthode** :
* MET_08.02.05.12 : Méthode pour le calcul de la production d'énergie thermique de source solaire (*disponible sur demande*)
* MET_08.02.05.40 : Méthode pour le calcul de la production énergétique de source Bois-énergie(*disponible sur demande*)
* MET_08.02.05.62 : Méthode pour le calcul de la production thermique à partir de la chaleur ambiante(*disponible sur demande*)
* MET_08.02.05.71 : Méthode pour le calcul de la production énergétique à partir de biomasse agricole(*disponible sur demande*)
* MET_08.02.05.72 : Méthode pour le calcul de la production énergétique à partir de déchets incinérables(*disponible sur demande*)
* MET_08.02.05.73 : Méthode pour le calcul de la production énergétique à partir de déchets méthanisables(*disponible sur demande*)
**Fiches Indicateur** :
* [IND_08.02.02.01 : Production électrique de sources renouvelables et non renouvelables, Vaud](https://stat-climat-vd.ch/fiches-indicateurs/themes/energie/IND_08.02.02.01_Production_Electrique_Total.html)
* [IND_08.02.05.12 : Production thermique de source solaire, Vaud](https://stat-climat-vd.ch/fiches-indicateurs/themes/energie/IND_08.02.05.12_Production_Solaire_Thermique.html)
* [IND_08.02.05.40 : Production énergétique de source bois-énergie, Vaud](https://stat-climat-vd.ch/fiches-indicateurs/themes/energie/IND_08.02.05.40_Production_Bois_Energie.html)
* [IND_08.02.05.62 : Production thermique à partir de la chaleur ambiante, Vaud](https://stat-climat-vd.ch/fiches-indicateurs/themes/energie/IND_08.02.05.62_Production_Chaleur-ambiante_Thermique.html)
* [IND_08.02.05.71 : Production énergétique à partir de biomasse agricole, Vaud](https://stat-climat-vd.ch/fiches-indicateurs/themes/energie/IND_08.02.05.71_Production_Biomasse_Energie.html)
* [IND_08.02.05.72 : Production énergétique à partir de déchets incinérables, Vaud](https://stat-climat-vd.ch/fiches-indicateurs/themes/energie/IND_08.02.05.72_Production_Dechets-incinerables_Energie.html)
* [IND_08.02.05.73 : Production énergétique à partir de déchets méthanisables, Vaud](https://stat-climat-vd.ch/fiches-indicateurs/themes/energie/IND_08.02.05.73_Production_Dechets-methanisables_Energie.html)
## Autres références {#sec-ref-autres}
- [DGE-DIREN - Conception cantonale de l’énergie (CoCEn 2019)](https://www.vd.ch/fileadmin/user_upload/themes/environnement/energie/fichiers_pdf/CoCEn_Pub_complete_20190816.pdf)
- [OFEN - Schweizerische Statistik der erneuerbaren Energien. Ausgabe 2022](https://www.bfe.admin.ch/bfe/de/home/versorgung/statistik-und-geodaten/energiestatistiken/teilstatistiken.exturl.html/aHR0cHM6Ly9wdWJkYi5iZmUuYWRtaW4uY2gvZGUvcHVibGljYX/Rpb24vZG93bmxvYWQvMTE1MDk=.html)
# Glossaire {#sec-glossaire}
```{r}
# ---------------------------------------------------------
# Bloc pour lecture du file BRUT où se trouvent toutes les définition pour le glossaire et création du data.frame "definition" ----
# ---------------------------------------------------------
tryCatch(
expr = {readxl::read_excel("P:/DIREN/11 POLITIQUE ENERG/11.08 Indicateurs et stat/1 Indicateurs DIREN/3-Fiches IND MET OBJ/Liste Definitions.xlsx",
skip = 2) |>
janitor::clean_names(case="screaming_snake") |>
select(TERME, DEFINITION) |>
readr::write_csv2("./data/definitions.csv")
},
error = function(e) message("Attention: la table définition n'a pas pu être réactualisée avec les données brutes du P:/ ", e$message),
warning = function(w) message("Attention: la table définition n'a pas pu être réactualisée avec les données brutes du P:/ ", w$message)
)
```
```{r}
# ---------------------------------------------------------
# Bloc pour sélectionner les définitions à apparaître dans le glossaire ----
# ---------------------------------------------------------
# Lecture du file
def_tot <- readr::read_delim(file = "./data/definitions.csv",
delim = ";",
show_col_types = FALSE) |>
# Mettre les premières lettres de chaque définition en majuscule
dplyr::mutate(DEFINITION = stringr::str_replace(DEFINITION,"^\\p{L}",stringr::str_to_upper))
# Sélection des définitions
definitions <- def_tot |>
filter(TERME %in% c(
"Gigawattheure (GWh)",
"Autoconsommation",
"Energie finale",
"Consommation finale",
"Surface de référence énergétique (SRE)",
"Energies renouvelables"
))
# Ajouter Agents énergétiques
# Print de la table avec modification des columns
definitions |>
gt_table_ind() |>
gt::cols_label(TERME = "", DEFINITION ="Définition") |>
gt::tab_options(table.align = "left")
```
# Annexes {#sec-annexes .unnumbered}
<!-- Aide au remplissage : consulter la section correspondante avec `obsindVD::open_aide_remplissage_help()` -->