#5

Graph régional par filière : mis en max 100
Pour les taux par filières : représenter toutes les filières dans les dep même si elles n'existent pas

R/suivi_zaer.Rmd

 ---
 title: "Suivi de l'avancement de la définition des zones d'accélération des énergies renouvelables en Pays de la Loire"
-author: "Lisa SMAH"
+author: "DREAL PAYS DE LA LOIRE"
 date: "2024-02-20"
 output:
   html_document:
@@ -40,7 +40,7 @@ dep_filiere_ssfiliere_zaer <- datalibaba::importer_data(table = "dep_filiere_ssf
 
 ### 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= 12}
+```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 8}
 
 # Calcul du taux de communes Zaer non transmises
 region_zaer <- region_zaer %>%
@@ -61,18 +61,18 @@ data_reg$nombres <- c(region_zaer$reg_nbcom_zaer_trans, region_zaer$reg_nbcom -
 
 
 # Tracer le graphique en barres horizontales
-ggplot(data_reg, aes(x = Taux_reg, y = "", fill = Transmission)) +
+ggplot(data_reg, aes(x = " " , y = Taux_reg, fill = Transmission)) +
   geom_bar(stat = "identity", width = 0.3) +
   geom_text(aes(label = paste0(round(Taux_reg, 1), "%")), position = position_stack(vjust = 0.5), size = 4, color = "black") +
   geom_text(aes(label = paste("(", nombres, ")")), position = position_stack(vjust = 0.5), vjust = 2, size = 4, color = "black") +
   scale_fill_manual(values = c("#CCCC66", "#3399CC")) +
   labs(title = "Nombre et taux de communes ayant transmis leur ZAER au niveau régional",
-       x = "Taux (%)",
-       y = "") +
+       x = "",
+       y = "Taux (%)") +
   theme_test(base_size = 16)+
   labs(fill = "")+
-  theme(plot.title = element_text(size = 15))+  # Modification de la taille du titre
-  scale_x_continuous(expand = c(0.01, 0))  # Réglage de l'expansion de l'axe x pour la distance entre les barres et l'axe
+  theme(plot.title = element_text(size = 15))+ # Modification de la taille du titre
+  scale_y_continuous(expand = c(0.05, 0))  # Réglage de l'expansion de l'axe x pour la distance entre les barres et l'axe
 
 ```
 
@@ -160,7 +160,7 @@ ggplot(data, aes(x = Taux, y = "", fill = Transmission)) +
 ```
 
 
-### Nombre et le taux de communes ayant transmis leur ZAER dans le département 53
+### 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}
 dep_zaer_53<- dep_zaer[dep_zaer$insee_dep == 53, ]
@@ -199,7 +199,7 @@ ggplot(data_53, aes(x = Taux, y = "", fill = Transmission)) +
 
 
 
-### Nombre et le taux de communes ayant transmis leur ZAER dans le département 72
+### 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}
 dep_zaer_72<- dep_zaer[dep_zaer$insee_dep == 72, ]
@@ -236,7 +236,7 @@ ggplot(data_72, aes(x = Taux_72, y = "", fill = Transmission)) +
   scale_x_continuous(expand = c(0.01, 0))  # Réglage de l'expansion de l'axe x pour la distance entre les barres et l'axe
 ```
 
-### Nombre et le taux de communes ayant transmis leur ZAER dans le département 85
+### 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}
 dep_zaer_85<- dep_zaer[dep_zaer$insee_dep == 85, ]
@@ -531,7 +531,8 @@ ggplot(reg_filiere_zaer, aes(x = reorder(filiere, -reg_txcom_zaer_fil), y = reg_
        x = "Filière",
        y = "Taux (%)") +
   theme_classic() +
-  theme(axis.text.x = element_text(angle = 45, hjust = 1))
+  theme(axis.text.x = element_text(angle = 45, hjust = 1))+
+  coord_cartesian(ylim = c(0, 100))
 ```
 
 
@@ -543,6 +544,12 @@ ggplot(reg_filiere_zaer, aes(x = reorder(filiere, -reg_txcom_zaer_fil), y = reg_
 # filtre sur le département 44
 dep_filiere_zaer_44 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 44,]
 
+# Créer un dataframe avec toutes les filières et un taux de 0
+toutes_filieres <- data.frame(filiere = c("HYDROELECTRICITE", "BIOMASSE", "EOLIEN", "GEOTHERMIE", "BIOMETHANE", "SOLAIRE_PV", "SOLAIRE_THERMIQUE"))
+
+# Fusionner avec votre table existante
+dep_filiere_zaer_44 <- full_join(dep_filiere_zaer_44, toutes_filieres, by = "filiere")
+
 # Correspondance entre les filières et les couleurs
 filiere_couleur <- c("HYDROELECTRICITE" = "#0371c1",
                      "BIOMASSE" = "#9cbc5b",
@@ -572,6 +579,13 @@ ggplot(dep_filiere_zaer_44, aes(x = reorder(filiere, -dep_txcom_zaer_fil) , y =
 # filtre sur le département 49
 dep_filiere_zaer_49 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 49,]
 
+# Créer un dataframe avec toutes les filières et un taux de 0
+toutes_filieres <- data.frame(filiere = c("HYDROELECTRICITE", "BIOMASSE", "EOLIEN", "GEOTHERMIE", "BIOMETHANE", "SOLAIRE_PV", "SOLAIRE_THERMIQUE"))
+
+# Fusionner avec votre table existante
+dep_filiere_zaer_49 <- full_join(dep_filiere_zaer_49, toutes_filieres, by = "filiere")
+
+
 # Correspondance entre les filières et les couleurs
 filiere_couleur <- c("HYDROELECTRICITE" = "#0371c1",
                      "BIOMASSE" = "#9cbc5b",
@@ -601,6 +615,12 @@ ggplot(dep_filiere_zaer_49, aes(x = reorder(filiere, -dep_txcom_zaer_fil) , y =
 # filtre sur le département 53
 dep_filiere_zaer_53 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 53,]
 
+# Créer un dataframe avec toutes les filières et un taux de 0
+toutes_filieres <- data.frame(filiere = c("HYDROELECTRICITE", "BIOMASSE", "EOLIEN", "GEOTHERMIE", "BIOMETHANE", "SOLAIRE_PV", "SOLAIRE_THERMIQUE"))
+
+# Fusionner avec votre table existante
+dep_filiere_zaer_53 <- full_join(dep_filiere_zaer_53, toutes_filieres, by = "filiere")
+
 #Définition des couleurs
 # Correspondance entre les filières et les couleurs
 filiere_couleur <- c("HYDROELECTRICITE" = "#0371c1",
@@ -631,6 +651,13 @@ ggplot(dep_filiere_zaer_53, aes(x = reorder(filiere, -dep_txcom_zaer_fil), y = d
 # filtre sur le département 72
 dep_filiere_zaer_72 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 72,]
 
+# Créer un dataframe avec toutes les filières et un taux de 0
+toutes_filieres <- data.frame(filiere = c("HYDROELECTRICITE", "BIOMASSE", "EOLIEN", "GEOTHERMIE", "BIOMETHANE", "SOLAIRE_PV", "SOLAIRE_THERMIQUE"))
+
+# Fusionner avec votre table existante
+dep_filiere_zaer_72 <- full_join(dep_filiere_zaer_72, toutes_filieres, by = "filiere")
+
+
 #Définition des couleurs
 # Correspondance entre les filières et les couleurs
 filiere_couleur <- c("HYDROELECTRICITE" = "#0371c1",
@@ -662,6 +689,12 @@ ggplot(dep_filiere_zaer_72, aes(x = reorder(filiere, -dep_txcom_zaer_fil), y = d
 # filtre sur le département 85
 dep_filiere_zaer_85 <- dep_filiere_zaer[dep_filiere_zaer$insee_dep == 85,]
 
+# Créer un dataframe avec toutes les filières et un taux de 0
+toutes_filieres <- data.frame(filiere = c("HYDROELECTRICITE", "BIOMASSE", "EOLIEN", "GEOTHERMIE", "BIOMETHANE", "SOLAIRE_PV", "SOLAIRE_THERMIQUE"))
+
+# Fusionner avec votre table existante
+dep_filiere_zaer_85 <- full_join(dep_filiere_zaer_85, toutes_filieres, by = "filiere")
+
 #Définition des couleurs
 # Correspondance entre les filières et les couleurs
 filiere_couleur <- c("HYDROELECTRICITE" = "#0371c1",
@@ -688,24 +721,6 @@ ggplot(dep_filiere_zaer_85, aes(x = reorder(filiere, -dep_txcom_zaer_fil), y = d
 
 
 
-```{r, echo = FALSE, warning = FALSE, message=FALSE, fig.height=6, fig.width= 10}
-# Génerer des couleurs
-# Couleurs initiales
-palette_couleurs <- c("#FF5733", "#FFC300",  "#984EA3", "#2ECC71", "#E41A1C", "#377EB8", "#4DAF4A","#900C3F", "#FF7F00", "#FFFF33", "#A65628", "#F781BF", "#999999", "#000000")
-
-# Fonction pour générer une couleur aléatoire
-generer_couleur <- function() {
-  paste0("#", paste0(sample(c(0:9, "A", "B", "C", "D", "E", "F"), 6, replace = TRUE), collapse = ""))
-}
-
-# Générer 30 couleurs supplémentaires
-nouvelles_couleurs <- replicate(40, generer_couleur())
-
-# Combiner les palettes
-palette_complete <- c(palette_couleurs, nouvelles_couleurs)
-
-```
-
 # Chapitre 4 : Proportion  et nombre de communes ayant des zones définies dans chaque sous-filière existante pour SOLAIRE_PV
 
 ### Niveau du département 44