Skip to content
Snippets Groups Projects
Commit 03b3b26c authored by Daniel.Kalioudjoglou's avatar Daniel.Kalioudjoglou
Browse files

modification titre sur 3_1 et correction division par 10000 sur 5_1

parent 239f8064
No related branches found
No related tags found
2 merge requests!65maj_avant_transfert_vers_gitlabforge,!57Resolve "controle des dates et du skeleton"
Pipeline #185442 passed
......@@ -104,7 +104,7 @@ creer_graphe_3_1 <- function(millesime_stock_artif = NULL,
expand = c(0,0)
) +
ggplot2::labs(
title = "Taux de croissance compar\u00e9s des <span style = \'color:#FF8D7E\'>cadastr\u00e9es consomm\u00e9es</span> <br>et de la <span style = \'color:#5770BE\'>population municipale</span>",
title = "Taux de croissance compar\u00e9s des surfaces <span style = \'color:#FF8D7E\'>cadastr\u00e9es consomm\u00e9es</span> <br>et de la <span style = \'color:#5770BE\'>population municipale</span>",
subtitle = glue::glue("Entre {millesime_debut} et {millesime_stock_artif} (en %)"),
caption = glue::glue("Source : Cerema Fichiers fonciers / Insee RP {millesime_population}"),
x = NULL, y = NULL
......
......@@ -46,7 +46,6 @@ creer_graphe_5_1 <- function(millesime_stock_artif,code_reg) {
.data$date %in% c(millesime_stock_artif,millesime_reference)) %>%
dplyr::select(.data$TypeZone,.data$Zone,.data$CodeZone,.data$date,.data$surface_artificialisee) %>%
dplyr::mutate(surface_artificialisee = .data$surface_artificialisee / 10000) %>%
dplyr::mutate(date = dplyr::case_when(
.data$date == millesime_reference ~ "stock_mill_debut",
.data$date == millesime_stock_artif ~ "stock_mill_fin",
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment