#5

Rectification, et ajout d'un titre dans chapitre 4

R/suivi_zaer.Rmd

@@ -253,7 +253,7 @@ ggplot(data_72, aes(x = Taux_72, y = "", fill = Transmission)) +
 dep_zaer_85<- dep_zaer[dep_zaer$insee_dep == 85, ]
 
 # Calcul du taux de communes Zaer non transmises
-dep_zaer_85 <- dep_zaer_53 %>%
+dep_zaer_85 <- dep_zaer_85 %>%
   dplyr::mutate(dep_txcom_zaer_non_trans = 100 - dep_txcom_zaer_trans)
 
 # Création d'un vecteur contenant les taux
@@ -776,8 +776,11 @@ ggplot(dep_filiere_zaer_85, aes(x = filiere, y = dep_txcom_zaer_fil, fill = fili
 
 
 # Chapitre 4 : Parmi les communes avec ZAER SOLAIRE_PV, répartition des sous-filières
+
 ## Niveau régional 
 
+### 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}
 # Créer un dataframe avec les données fournies
 reg_ssfiliere_zaer_pv <- reg_ssfiliere_zaer[reg_ssfiliere_zaer$filiere == "SOLAIRE_PV",]