correction de creer_graphe_3_4.R

R/creer_graphe_3_4.R

@@ -107,10 +107,10 @@ creer_graphe_3_4 <- function(millesime_stock_artif = NULL,millesime_population =
     ggplot2::coord_flip()  +
     ggplot2::geom_text(ggplot2::aes(label=format(round(.data$valeur,0), big.mark = " "),color = .data$variable),position= ggplot2::position_dodge(width=1), hjust=-0.1)+
     ggplot2::scale_fill_manual(values = c("#82534b","#FF8D7E")) +
-    ggplot2::scale_color_manual(values = c("#82534b","#FF8D7E"))
+    ggplot2::scale_color_manual(values = c("#82534b","#FF8D7E")) +
     ggplot2::labs(
       title = glue::glue("Surfaces cadastr\u00e9es artificialis\u00e9es (m2)", width = 60),
-      subtitle = glue::glue("<span style = 'color:#FF8D7E'>par habitant pr\u00e9sent en {millesime_debut_population}</span> et <span style = 'color:#D6857B'>par nouvel habitant entre {millesime_debut_population} et {millesime_fin_population}</span> "),
+      subtitle = glue::glue("<span style = 'color:#FF8D7E'>par habitant pr\u00e9sent en {millesime_debut_population}</span> et <span style = 'color:#82534b'>par nouvel habitant entre {millesime_debut_population} et {millesime_fin_population}</span> "),
       x = "", y = "",
       fill = "",
       caption = glue::glue("Source : DGFip Majic/Cerema Fichiers fonciers - Insee -  {millesime_stock_artif}")