#5 modification des titres des graphes chap 4

R/suivi_zaer.Rmd

@@ -805,7 +805,7 @@ ggplot(dep_filiere_zaer_sf_44,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
   geom_bar(stat = "identity", width = 0.5, position = position_dodge()) +
   scale_fill_manual(values = ssfiliere_couleur) +  # Utilisation des couleurs définies
   geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
-  labs(title = "Proportion et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 44",
+  labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 44",
        x = "Filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -846,7 +846,7 @@ ggplot(dep_filiere_zaer_sf_49,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
   geom_bar(stat = "identity", width = 0.5, position = position_dodge()) +
   scale_fill_manual(values = ssfiliere_couleur) +  # Utilisation des couleurs définies
   geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
-  labs(title = "Proportion et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 49",
+  labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 49",
        x = "Filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -889,7 +889,7 @@ ggplot(dep_filiere_zaer_sf_53,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
   geom_bar(stat = "identity", width = 0.5, position = position_dodge()) +
   scale_fill_manual(values = ssfiliere_couleur) +  # Utilisation des couleurs définies
   geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
-  labs(title = "Proportion et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 53",
+  labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 53",
        x = "Filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -931,7 +931,7 @@ ggplot(dep_filiere_zaer_sf_72,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
   geom_bar(stat = "identity", width = 0.5, position = position_dodge()) +
   scale_fill_manual(values = ssfiliere_couleur) +  # Utilisation des couleurs définies
   geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
-  labs(title = "Proportion et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 72",
+  labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 72",
        x = "Filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -972,7 +972,7 @@ ggplot(dep_filiere_zaer_sf_85,aes(x = detail_filiere, y = dep_txcom_zaer_ssfil,
   geom_bar(stat = "identity", width = 0.5, position = position_dodge()) +
   scale_fill_manual(values = ssfiliere_couleur) +  # Utilisation des couleurs définies
   geom_text(aes(label = paste0(round(dep_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
-  labs(title = "Proportion et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 85",
+  labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 85",
        x = "Filière",
        y = "Taux (%)") +
   theme_classic() +