Skip to content
Snippets Groups Projects
Commit 0a91f594 authored by lisasmah's avatar lisasmah
Browse files

#2 Calcul des taux optimaux par filière

parent 07b3cc4e
No related branches found
No related tags found
1 merge request!1merge de la dev vers main
Hide whitespace changes
Inline Side-by-side
R/suivi_zaer.Rmd
+ 7
− 7
View file @ 0a91f594
...@@ -1048,7 +1048,7 @@ barre1 <- production_eolien$valeur[production_eolien$territoire == 'region' & pr ...@@ -1048,7 +1048,7 @@ barre1 <- production_eolien$valeur[production_eolien$territoire == 'region' & pr
# Barre 3: valeur pour territoire = region et source = sraddet, source= existant # Barre 3: valeur pour territoire = region et source = sraddet, source= existant
barre3_existant <- production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'existant'] barre3_existant <- production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'existant']
barre3_sraddet <- ((production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'sraddet']) - (production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'existant'])) barre3_sraddet <- ((production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'sraddet']) - (production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'existant']))
tx_optimal_Eolien <- (barre3_sraddet /(production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'sraddet'])) *100 tx_optimal_Eolien <- (barre3_sraddet /(production_eolien$valeur[production_eolien$territoire == 'region' & production_eolien$source == 'mixte'])) *100
tx_optimal_Eolien tx_optimal_Eolien
production_eolien_graph <- data.frame( production_eolien_graph <- data.frame(
...@@ -1118,7 +1118,7 @@ barre1 <- production_solaire_pv$valeur[production_solaire_pv$territoire == 'regi ...@@ -1118,7 +1118,7 @@ barre1 <- production_solaire_pv$valeur[production_solaire_pv$territoire == 'regi
# Barre 3: valeur pour territoire = region et source = sraddet # Barre 3: valeur pour territoire = region et source = sraddet
barre3_existant <- production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'existant'] barre3_existant <- production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'existant']
barre3_sraddet <- ((production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'sraddet']) - (production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'existant'])) barre3_sraddet <- ((production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'sraddet']) - (production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'existant']))
tx_optimal_Solaire_PV <- (barre3_sraddet / (production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'sraddet'])) *100 tx_optimal_Solaire_PV <- (barre3_sraddet / (production_solaire_pv$valeur[production_solaire_pv$territoire == 'region' & production_solaire_pv$source == 'mixte'])) *100
tx_optimal_Solaire_PV tx_optimal_Solaire_PV
production_solaire_pv_graph <- data.frame( production_solaire_pv_graph <- data.frame(
...@@ -1183,7 +1183,7 @@ barre1 <- production_hydrolectricite$valeur[production_hydrolectricite$territoir ...@@ -1183,7 +1183,7 @@ barre1 <- production_hydrolectricite$valeur[production_hydrolectricite$territoir
# Barre 3: valeur pour territoire = region et source = sraddet # Barre 3: valeur pour territoire = region et source = sraddet
barre3_existant <- production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'existant'] barre3_existant <- production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'existant']
barre3_sraddet <- ((production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'sraddet']) - (production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'existant'])) barre3_sraddet <- ((production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'sraddet']) - (production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'existant']))
tx_optimal_hydrolectricite <- (barre3_sraddet / production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'sraddet']) *100 tx_optimal_hydrolectricite <- (barre3_sraddet / production_hydrolectricite$valeur[production_hydrolectricite$territoire == 'region' & production_hydrolectricite$source == 'mixte']) *100
tx_optimal_hydrolectricite tx_optimal_hydrolectricite
# Créer le dataframe # Créer le dataframe
...@@ -1251,7 +1251,7 @@ barre1 <- production_solaire_thermique$valeur[production_solaire_thermique$terri ...@@ -1251,7 +1251,7 @@ barre1 <- production_solaire_thermique$valeur[production_solaire_thermique$terri
# Barre 3: valeur pour territoire = region et source = sraddet # Barre 3: valeur pour territoire = region et source = sraddet
barre3_existant <- production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'existant'] barre3_existant <- production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'existant']
barre3_sraddet <- ((production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'sraddet']) - (production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'existant'])) barre3_sraddet <- ((production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'sraddet']) - (production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'existant']))
tx_optimal_solaire_thermique <- (barre3_sraddet / production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'sraddet']) *100 tx_optimal_solaire_thermique <- (barre3_sraddet / production_solaire_thermique$valeur[production_solaire_thermique$territoire == 'region' & production_solaire_thermique$source == 'mixte']) *100
tx_optimal_solaire_thermique tx_optimal_solaire_thermique
production_solaire_thermique_graph <- data.frame( production_solaire_thermique_graph <- data.frame(
...@@ -1319,7 +1319,7 @@ barre1 <- production_geothermie$valeur[production_geothermie$territoire == 'regi ...@@ -1319,7 +1319,7 @@ barre1 <- production_geothermie$valeur[production_geothermie$territoire == 'regi
barre3_existant <- production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'existant'] barre3_existant <- production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'existant']
barre3_sraddet <- ((production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'sraddet']) - (production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'existant'])) barre3_sraddet <- ((production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'sraddet']) - (production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'existant']))
tx_optimal_geothermie <- (barre3_sraddet / production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'sraddet']) *100 tx_optimal_geothermie <- (barre3_sraddet / production_geothermie$valeur[production_geothermie$territoire == 'region' & production_geothermie$source == 'mixte']) *100
tx_optimal_geothermie tx_optimal_geothermie
...@@ -1391,7 +1391,7 @@ barre1 <- production_biomasse$valeur[production_biomasse$territoire == 'region' ...@@ -1391,7 +1391,7 @@ barre1 <- production_biomasse$valeur[production_biomasse$territoire == 'region'
barre3_existant <- production_biomasse$valeur[production_biomasse$territoire == 'region' & production_biomasse$source == 'existant'] barre3_existant <- production_biomasse$valeur[production_biomasse$territoire == 'region' & production_biomasse$source == 'existant']
barre3_sraddet <- ((production_biomasse$valeur[production_biomasse$territoire == 'region' & production_biomasse$source == 'sraddet']) - (production_biomasse$valeur[production_biomasse$territoire == 'region' & production_biomasse$source == 'existant'])) barre3_sraddet <- ((production_biomasse$valeur[production_biomasse$territoire == 'region' & production_biomasse$source == 'sraddet']) - (production_biomasse$valeur[production_biomasse$territoire == 'region' & production_biomasse$source == 'existant']))
tx_optimal_biomasse <- (barre3_sraddet / production_biomasse$valeur[production_biomasse$territoire =='region' & production_biomasse$source == 'sraddet']) *100 tx_optimal_biomasse <- (barre3_sraddet / production_biomasse$valeur[production_biomasse$territoire =='region' & production_biomasse$source == 'mixte']) *100
tx_optimal_biomasse tx_optimal_biomasse
...@@ -1462,7 +1462,7 @@ barre1 <- production_biomethane$valeur[production_biomethane$territoire == 'regi ...@@ -1462,7 +1462,7 @@ barre1 <- production_biomethane$valeur[production_biomethane$territoire == 'regi
barre3_existant <- production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'existant'] barre3_existant <- production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'existant']
barre3_sraddet <- ((production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'sraddet']) - (production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'existant'])) barre3_sraddet <- ((production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'sraddet']) - (production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'existant']))
tx_optimal_biomethane <- (barre3_sraddet / production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'sraddet']) *100 tx_optimal_biomethane <- (barre3_sraddet / production_biomethane$valeur[production_biomethane$territoire == 'region' & production_biomethane$source == 'mixte']) *100
tx_optimal_biomethane tx_optimal_biomethane
production_biomethane_graph <- data.frame( production_biomethane_graph <- data.frame(
......
R/suivi_zaer.html
+ 14
− 7
View file @ 0a91f594
Source diff could not be displayed: it is too large. Options to address this: view the blob.
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment