#5

Correction des titres des graphiques du chapitre 4

R/suivi_zaer.Rmd

@@ -807,7 +807,7 @@ ggplot(reg_ssfiliere_zaer_pv,aes(x = detail_filiere, y = reg_txcom_zaer_ssfil, f
   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(reg_txcom_zaer_ssfil,1), "%")), position = position_dodge(width = 0.9), vjust = -0.5, size = 4, color = "black") +
-  labs(title = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante au niveau régional",
+  labs(title = "Taux de communes ayant des zones définies dans chaque sous-filière existante au niveau régional",
        x = "Sous-filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -849,7 +849,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 = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 44",
+  labs(title = "Taux de communes ayant des zones définies dans chaque sous-filière existante dans le département 44",
        x = "Sous-filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -890,7 +890,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 = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 49",
+  labs(title = "Taux de communes ayant des zones définies dans chaque sous-filière existante dans le département 49",
        x = "Sous-filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -933,7 +933,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 = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 53",
+  labs(title = "Taux de communes ayant des zones définies dans chaque sous-filière existante dans le département 53",
        x = "Sous-filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -975,7 +975,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 = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 72",
+  labs(title = "Taux de communes ayant des zones définies dans chaque sous-filière existante dans le département 72",
        x = "Sous-filière",
        y = "Taux (%)") +
   theme_classic() +
@@ -1018,7 +1018,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 = "Taux et nombre de communes ayant des zones définies dans chaque sous-filière existante dans le département 85",
+  labs(title = "Taux de communes ayant des zones définies dans chaque sous-filière existante dans le département 85",
        x = "Sous-filière",
        y = "Taux (%)") +
   theme_classic() +