inversion des couleurs pour graphe_1_1 et graphhe_2_3

R/creer_graphe_1_1.R

@@ -80,8 +80,8 @@ creer_graphe_1_1 <- function(millesime_teruti=NULL,
                   caption = glue::glue("Source : Teruti-Lucas {millesime_teruti}"))+
     ggplot2::theme(axis.text.x = ggplot2::element_text(), legend.position = "none") +
     ggplot2::scale_y_continuous(labels = scales::number_format(suffix = " %", accuracy = 1)) +
-    ggplot2::scale_fill_manual(values = c("#82534b","#FF8D7E")) +
-    ggplot2::scale_color_manual(values = c("#82534b","#FF8D7E"))
+    ggplot2::scale_fill_manual(values = c("#FF8D7E","#82534b")) +
+    ggplot2::scale_color_manual(values = c("#FF8D7E","#82534b"))
 
   return(graph_1_1)
 

R/creer_graphe_2_3.R

@@ -65,8 +65,8 @@ creer_graphe_2_3 <- function(millesime_obs_artif,code_reg = NULL){
                   caption = glue::glue("Source : Observatoire artificialisation {millesime_obs_artif}"))+
     ggplot2::theme(axis.text.x = ggplot2::element_text(), legend.position = "none") +
     ggplot2::scale_y_continuous(labels = scales::number_format(suffix = "", accuracy = 1, big.mark = " "),limits = c(0, valeur_max+5000)) +
-    ggplot2::scale_fill_manual(values = c("#82534b","#FF8D7E")) +
-    ggplot2::scale_color_manual(values = c("#82534b","#FF8D7E"))
+    ggplot2::scale_fill_manual(values = c("#FF8D7E","#82534b")) +
+    ggplot2::scale_color_manual(values = c("#FF8D7E","#82534b"))
 
   return(graph_2_3)