Modification des couleurs

R/suivi_zaer.Rmd

@@ -143,13 +143,16 @@ data <- data.frame(
 # Ajout du nombre de communes correspondant à chaque transmission
 data$nombres <- c(dep_zaer_49$dep_nbcom_zaer_trans, dep_zaer_49$dep_nbcom - dep_zaer_49$dep_nbcom_zaer_trans)
 
+#utilisation de gouvdown palettes
+color<-c(gouvdown::gouv_palettes$pal_gouv_qual1[13],
+         gouvdown::gouv_palettes$pal_gouv_qual1[5])
 
 # Tracer le graphique en barres horizontales
 ggplot(data, aes(x = Taux, y = "", fill = Transmission)) +
   geom_bar(stat = "identity", width = 0.3,) +
   geom_text(aes(label = paste0(Taux, "%")), 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")) +
+  scale_fill_manual(values = color) +
   labs(title = "Nombre et taux de communes ayant transmis leur ZAER dans le département 49",
        x = "Taux (%)",
        y = "") +
@@ -339,8 +342,8 @@ data_epci_44 <- data.frame(
 data_epci_44$nombres <- c(dep_zaer_44$dep_nbepci_debat, dep_zaer_44$dep_nbepci - dep_zaer_44$dep_nbepci_debat)
 
 #utilisation de gouvdown palettes
-color<-c(gouvdown::gouv_palettes$pal_gouv_qual1[5],
-         gouvdown::gouv_palettes$pal_gouv_qual1[8])
+color<-c(gouvdown::gouv_palettes$pal_gouv_div1[2],
+         gouvdown::gouv_palettes$pal_gouv_qual1[9])
 
 # Tracer le graphique en barres horizontales
 ggplot(data_epci_44, aes(x = Taux_debat, y = "", fill = Transmission)) +