#2 nommage des chunks

R/suivi_zaer.Rmd

@@ -20,7 +20,7 @@ library(ggplot2)
 library(gouvdown)
 ```
 
-```{r,echo = FALSE, warning = FALSE, message=FALSE}
+```{r chargement des données,echo = FALSE, warning = FALSE, message=FALSE}
 role <- "mecc"
 datamart <- datalibaba::connect_to_db("datamart", user = role)
 com_etat_avancement <- datalibaba::importer_data(table = "com_etat_avancement" ,schema ="zaer", db = "datamart", server = NULL, user = role)
@@ -42,7 +42,7 @@ puissance_productible <- datalibaba::importer_data(table = "puissance_productibl
 
 ### Nombre et taux de communes ayant transmis leur ZAER au niveau régional
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10}
+```{r communes ayant transmis leur ZAER au niveau régional, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10}
 
 # Calcul du taux de communes Zaer non transmises
 region_zaer <- region_zaer %>%
@@ -84,7 +84,7 @@ ggplot(data_reg, aes(x = Taux_reg , y = "", fill = Transmission)) +
 
 ### Nombre et taux de communes ayant transmis leur ZAER dans le département 44
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
+```{r nombre et taux de communes ayant transmis leur ZAER dans le département 44, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
 dep_zaer_44<- dep_zaer[dep_zaer$insee_dep == 44, ]
 
 # Calcul du taux de communes Zaer non transmises
@@ -129,7 +129,7 @@ ggplot(data_44, aes(x = Taux, y = "", fill = Transmission)) +
 
 ### Nombre et taux de communes ayant transmis leur ZAER dans le département 49
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
+```{r nombre et taux de communes ayant transmis leur ZAER dans le département 49, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
 dep_zaer_49<- dep_zaer[dep_zaer$insee_dep == 49, ]
 
 # Calcul du taux de communes Zaer non transmises
@@ -169,7 +169,7 @@ ggplot(data, aes(x = Taux, y = "", fill = Transmission)) +
 
 ### Nombre et taux de communes ayant transmis leur ZAER dans le département 53
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
+```{r nombre et taux de communes ayant transmis leur ZAER dans le département 53, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
 dep_zaer_53<- dep_zaer[dep_zaer$insee_dep == 53, ]
 
 # Calcul du taux de communes Zaer non transmises
@@ -210,7 +210,7 @@ ggplot(data_53, aes(x = Taux, y = "", fill = Transmission)) +
 
 ### Nombre et taux de communes ayant transmis leur ZAER dans le département 72
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10}
+```{r nombre et taux de communes ayant transmis leur ZAER dans le département 72, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10}
 dep_zaer_72<- dep_zaer[dep_zaer$insee_dep == 72, ]
 # Calcul du taux de communes Zaer non transmises
 dep_zaer_72 <- dep_zaer_72 %>%
@@ -250,7 +250,7 @@ ggplot(data_72, aes(x = Taux_72, y = "", fill = Transmission)) +
 
 ### Nombre et taux de communes ayant transmis leur ZAER dans le département 85
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
+```{r nombre et taux de communes ayant transmis leur ZAER dans le département 85, echo = FALSE, warning = FALSE, message=FALSE,  fig.height=4 , fig.width= 10}
 dep_zaer_85<- dep_zaer[dep_zaer$insee_dep == 85, ]
 
 # Calcul du taux de communes Zaer non transmises
@@ -294,7 +294,7 @@ ggplot(data_85, aes(x = taux_85, y = "", fill = Transmission)) +
 
 <!-- ### Nombre et taux d’EPCI ayant fait un débat communautaire au niveau régional -->
 
-<!-- ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
+<!-- ```{r EPCI ayant fait un débat communautaire au niveau régional, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
 
 <!-- # Calcul du taux de communes Zaer non transmises -->
 <!-- region_zaer <- region_zaer %>% -->
@@ -335,7 +335,7 @@ ggplot(data_85, aes(x = taux_85, y = "", fill = Transmission)) +
 
 <!-- ### Nombre et taux d’EPCI ayant fait un débat communautaire dans le département 44 -->
 
-<!-- ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
+<!-- ```{r nombre et taux d’EPCI ayant fait un débat communautaire dans le département 44, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
 <!-- dep_zaer_44 <- dep_zaer[dep_zaer$insee_dep == 44, ] -->
 <!-- # Calcul du taux de communes Zaer non transmises -->
 <!-- dep_zaer_44 <- dep_zaer_44 %>% -->
@@ -374,7 +374,7 @@ ggplot(data_85, aes(x = taux_85, y = "", fill = Transmission)) +
 
 <!-- ### Nombre et taux d’EPCI ayant fait un débat communautaire dans le département 49 -->
 
-<!-- ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
+<!-- ```{r nombre et taux d’EPCI ayant fait un débat communautaire dans le département 49, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
 <!-- dep_zaer_49<- dep_zaer[dep_zaer$insee_dep == 49, ] -->
 <!-- # Calcul du taux de communes Zaer non transmises -->
 <!-- dep_zaer_49 <- dep_zaer_49 %>% -->
@@ -412,7 +412,7 @@ ggplot(data_85, aes(x = taux_85, y = "", fill = Transmission)) +
 
 <!-- ### Nombre et taux d’EPCI ayant fait un débat communautaire dans le département 53 -->
 
-<!-- ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
+<!-- ```{r nombre et taux d’EPCI ayant fait un débat communautaire dans le département 53, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
 <!-- dep_zaer_53 <- dep_zaer[dep_zaer$insee_dep == 53, ] -->
 <!-- # Calcul du taux de communes Zaer non transmises -->
 <!-- dep_zaer_53 <- dep_zaer_53 %>% -->
@@ -453,7 +453,7 @@ ggplot(data_85, aes(x = taux_85, y = "", fill = Transmission)) +
 
 <!-- ### Nombre et taux d’EPCI ayant fait un débat communautaire dans le département 72 -->
 
-<!-- ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
+<!-- ```{r nombre et taux d’EPCI ayant fait un débat communautaire dans le département 72, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
 <!-- dep_zaer_72 <- dep_zaer[dep_zaer$insee_dep == 72, ] -->
 <!-- # Calcul du taux de communes Zaer non transmises -->
 <!-- dep_zaer_72 <- dep_zaer_72 %>% -->
@@ -492,7 +492,7 @@ ggplot(data_85, aes(x = taux_85, y = "", fill = Transmission)) +
 
 <!-- ### Nombre et taux d’EPCI ayant fait un débat communautaire dans le département 85 -->
 
-<!-- ```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
+<!-- ```{r nombre et taux d’EPCI ayant fait un débat communautaire dans le département 85, echo = FALSE, warning = FALSE, message=FALSE, fig.height=4, fig.width= 10} -->
 <!-- dep_zaer_85 <- dep_zaer[dep_zaer$insee_dep == 85, ] -->
 <!-- # Calcul du taux de communes Zaer non transmises -->
 <!-- dep_zaer_85 <- dep_zaer_85 %>% -->
@@ -534,7 +534,7 @@ ggplot(data_85, aes(x = taux_85, y = "", fill = Transmission)) +
 
 ### Taux de communes ayant défini des ZAER pour chaque filière au niveau régional 
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Taux de communes ayant défini des ZAER pour chaque filière au niveau régional, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 #Définition des couleurs avec des Correspondance entre les filières et les couleurs
 filiere_couleur <- c("HYDROELECTRICITE" = "#0371c1",
                      "BIOMASSE" = "#9cbc5b",
@@ -569,7 +569,7 @@ ggplot(reg_filiere_zaer, aes(x = filiere, y = reg_txcom_zaer_fil, fill = filiere
 
 ### Taux de communes ayant défini des ZAER pour chaque filière dans le département 44
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r taux de communes ayant défini des ZAER pour chaque filière dans le département 44, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # filtre sur le département 44
 dep_filiere_zaer_44 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 44,]
 
@@ -610,7 +610,7 @@ ggplot(dep_filiere_zaer_44, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
 
 ### Taux de communes ayant défini des ZAER pour chaque filière dans le département 49
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r taux de communes ayant défini des ZAER pour chaque filière dans le département 49, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # filtre sur le département 49
 dep_filiere_zaer_49 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 49,]
 
@@ -650,7 +650,7 @@ ggplot(dep_filiere_zaer_49, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
 
 ### Taux de communes ayant défini des ZAER pour chaque filière dans le département 53
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r taux de communes ayant défini des ZAER pour chaque filière dans le département 53, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # filtre sur le département 53
 dep_filiere_zaer_53 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 53,]
 
@@ -692,7 +692,7 @@ ggplot(dep_filiere_zaer_53, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
 
 ### Taux de communes ayant défini des ZAER pour chaque filière dans le département 72
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r taux de communes ayant défini des ZAER pour chaque filière dans le département 72, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # filtre sur le département 72
 dep_filiere_zaer_72 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 72,]
 
@@ -735,7 +735,7 @@ ggplot(dep_filiere_zaer_72, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
 
 
 ### Taux de communes ayant défini des ZAER pour chaque filière dans le département 85
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r taux de communes ayant défini des ZAER pour chaque filière dans le département 85, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # filtre sur le département 85
 dep_filiere_zaer_85 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 85,]
 
@@ -783,7 +783,7 @@ ggplot(dep_filiere_zaer_85, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
 
 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières au niveau régional
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Parmi les communes avec ZAER SOLAIRE_PV répartition des sous-filières au niveau régional, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # Créer un dataframe avec les données fournies
 reg_ssfiliere_zaer_pv <- reg_ssfiliere_zaer[reg_ssfiliere_zaer$filiere == "SOLAIRE_PV",]
 
@@ -824,7 +824,7 @@ ggplot(reg_ssfiliere_zaer_pv,aes(x = detail_filiere, y = reg_txcom_zaer_ssfil, f
 
 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 44
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Parmi les communes avec ZAER SOLAIRE_PV répartition des sous-filières pour le département 44, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # Créer un dataframe avec les données fournies
 dep_filiere_zaer_sf_44 <- dep_ssfiliere_zaer[dep_ssfiliere_zaer$insee_dep == 44,]
 dep_filiere_zaer_sf_44 <- dep_filiere_zaer_sf_44[dep_filiere_zaer_sf_44$filiere == "SOLAIRE_PV",]
@@ -864,7 +864,7 @@ ggplot(dep_filiere_zaer_sf_44,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
 
 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 49
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Parmi les communes avec ZAER SOLAIRE_PV répartition des sous-filières pour le département 49, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # Créer un dataframe avec les données fournies
 dep_filiere_zaer_sf_49 <- dep_ssfiliere_zaer[dep_ssfiliere_zaer$insee_dep == 49,]
 dep_filiere_zaer_sf_49 <- dep_filiere_zaer_sf_49[dep_filiere_zaer_sf_49$filiere == "SOLAIRE_PV",]
@@ -907,7 +907,7 @@ ggplot(dep_filiere_zaer_sf_49,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 53
 
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Parmi les communes avec ZAER SOLAIRE_PV répartition des sous-filières pour le département 53, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # Créer un dataframe avec les données fournies
 dep_filiere_zaer_sf_53 <- dep_ssfiliere_zaer[dep_ssfiliere_zaer$insee_dep == 53,]
 dep_filiere_zaer_sf_53 <- dep_filiere_zaer_sf_53[dep_filiere_zaer_sf_53$filiere == "SOLAIRE_PV",]
@@ -949,7 +949,7 @@ ggplot(dep_filiere_zaer_sf_53,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
 
 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 72
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Parmi les communes avec ZAER SOLAIRE_PV répartition des sous-filières pour le département 72, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # Créer un dataframe avec les données fournies
 dep_filiere_zaer_sf_72 <- dep_ssfiliere_zaer[dep_ssfiliere_zaer$insee_dep == 72,]
 dep_filiere_zaer_sf_72 <- dep_filiere_zaer_sf_72[dep_filiere_zaer_sf_72$filiere == "SOLAIRE_PV",]
@@ -992,7 +992,7 @@ ggplot(dep_filiere_zaer_sf_72,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
 ### Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières pour le département 85
 
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Parmi les communes avec ZAER SOLAIRE_PV répartition des sous-filières pour le département 85, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 # Créer un dataframe avec les données fournies
 dep_filiere_zaer_sf_85 <- dep_ssfiliere_zaer[dep_ssfiliere_zaer$insee_dep == 85,]
 dep_filiere_zaer_sf_85 <- dep_filiere_zaer_sf_85[dep_filiere_zaer_sf_85$filiere == "SOLAIRE_PV",]
@@ -1037,7 +1037,7 @@ ggplot(dep_filiere_zaer_sf_85,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
 
 ### Production régionale Eolienne
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Production régionale Eolienne, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 production_eolien <- puissance_productible %>%
   filter(filiere == "EOLIEN", capacite == "production")
 
@@ -1108,7 +1108,7 @@ ggplot(production_eolien_graph, aes(x = categorie, y = valeur, fill = segment))
 
 ### Production régionale SOLAIRE_PV
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Production régionale SOLAIRE_PV, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 production_solaire_pv <- puissance_productible %>%
   filter(filiere == "SOLAIRE_PV", capacite == "production")
 
@@ -1173,7 +1173,7 @@ ggplot(production_solaire_pv_graph, aes(x = categorie, y = valeur, fill = segmen
 
 ### Production régionale hydroélectricité
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Production régionale hydroélectricité, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 production_hydrolectricite <- puissance_productible %>%
   filter(filiere == "HYDROELECTRICITE", capacite == "production")
 
@@ -1240,7 +1240,7 @@ ggplot(production_hydrolectricite_graph, aes(x = categorie, y = valeur, fill = s
 
 ### Production régionale solaire thermique
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Production régionale solaire thermique, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 production_solaire_thermique <- puissance_productible %>%
   filter(filiere == "SOLAIRE_THERMIQUE", capacite == "production")
 
@@ -1308,7 +1308,7 @@ ggplot(production_solaire_thermique_graph, aes(x = categorie, y = valeur, fill =
 
 ### Production régionale géothermie
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Production régionale géothermie, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 production_geothermie <- puissance_productible %>%
   filter(filiere == "GEOTHERMIE", capacite == "production")
 
@@ -1380,7 +1380,7 @@ ggplot(production_geothermie_graph, aes(x = categorie, y = valeur, fill = segmen
 
 ### Production régionale biomasse
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Production régionale biomasse, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 production_biomasse <- puissance_productible %>%
   filter(filiere == "BIOMASSE", capacite == "production")
 
@@ -1450,7 +1450,7 @@ ggplot(production_biomasse_graph, aes(x = categorie, y = valeur, fill = segment)
 
 ### Production régionale BIOMETHANE
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
+```{r Production régionale BIOMETHANE, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
 production_biomethane <- puissance_productible %>%
   filter(filiere == "BIOMETHANE", capacite == "production")