creation du graphique

bug lors du lancement du check erreur de police dans le RMD

Closes #4 (closed)

R/creer_graphe_1_3.R

@@ -7,12 +7,13 @@
 #'
 #' @importFrom dplyr filter select mutate group_by desc arrange
 #' @importFrom forcats fct_inorder
-#' @importFrom ggplot2 ggplot aes geom_bar labs scale_y_continuous theme geom_text geom_col
+#' @importFrom ggplot2 ggplot aes geom_bar labs scale_y_continuous theme geom_text geom_col scale_fill_manual
 #' @importFrom scales number_format
 #' @importFrom glue glue
 #' @importFrom lubridate make_date
 #' @importFrom tidyr spread gather
 #' @importFrom tricky set_standard_names
+#' @importFrom gouvdown gouv_palettes
 #'
 #' @export
 #'
@@ -28,27 +29,32 @@ creer_graphe_1_3 <- function(millesime_teruti){
                   .data$date == lubridate::make_date(millesime_teruti,"01","01")) %>%
     tidyr::spread(key=.data$variable,value=.data$valeur,fill=0) %>%
     tricky::set_standard_names() %>%
-    dplyr::mutate (voiries=(.data$sols_revetus )/.data$tous_sols*100,
+    dplyr::arrange(.data$typezone) %>%
+    dplyr::mutate(zone = forcats::fct_drop(.data$zone) %>% forcats::fct_inorder(),
+                   voiries=(.data$sols_revetus )/.data$tous_sols*100,
                    hors_voiries=(.data$sols_batis+ .data$sols_stabilises+ .data$autres_sols_artificialises )/.data$tous_sols*100
     ) %>%
-    dplyr::select(.data$codezone,.data$zone,.data$voiries,.data$hors_voiries)%>%
+    dplyr::select(.data$typezone,.data$codezone,.data$zone,.data$voiries,.data$hors_voiries)%>%
     tidyr::gather(variable,valeur,.data$voiries:.data$hors_voiries)%>%
     dplyr::mutate(variable = replace(.data$variable, .data$variable=="hors_voiries","surfaces artificialis\u00e9es hors voiries"),
                   codezone = replace(.data$codezone, .data$codezone=="52","R\u00e9gion"))%>%
     dplyr::mutate(variable=factor(.data$variable,levels=c("surfaces artificialis\u00e9es hors voiries","voiries"))%>% forcats::fct_inorder()) %>%
-    dplyr::group_by(.data$codezone) %>%
+    dplyr::group_by(.data$typezone,.data$codezone,.data$zone) %>%
     dplyr::arrange(.data$codezone, dplyr::desc(.data$variable)) %>%
     dplyr::mutate(position = cumsum(.data$valeur) - 0.5 * .data$valeur)
 
   graph_1_3<-data  %>%
-    ggplot2::ggplot(ggplot2::aes(x=.data$codezone,y=.data$valeur)) +
+    ggplot2::ggplot(ggplot2::aes(x=.data$zone,y=.data$valeur)) +
     ggplot2::geom_col(ggplot2::aes(fill = .data$variable), width = 0.9)+
     ggplot2::geom_text(ggplot2::aes(y = .data$position, label = paste0(round(.data$valeur,1),"%"), group =.data$variable), color = "white", size=3)+
     ggplot2::labs(title= glue::glue("Part des surfaces artificialis\u00e9es dans la surface \nd\u00e9partementale et r\u00e9gionale en {millesime_teruti} en % (Teruti-Lucas)"),subtitle="",x="",y="",
                   fill="",
                   caption = glue::glue("Source : Teruti-Lucas {millesime_teruti}"))+
     ggplot2::theme(legend.position = "bottom")+
-    ggplot2::scale_y_continuous(labels = scales::number_format(suffix = " %", accuracy = 1))
+    ggplot2::scale_y_continuous(labels = scales::number_format(suffix = " %", accuracy = 1)) +
+    ggplot2::coord_flip() +
+    ggplot2::scale_x_discrete(limits=rev) +
+    ggplot2::scale_fill_manual(values = gouvdown::gouv_palettes[["pal_gouv_i"]][1:2])
 
   return(graph_1_3)