Skip to content
Snippets Groups Projects

creation carte part artificialise des communes

13 files
+ 182
36
Compare changes
  • Side-by-side
  • Inline
Files
13
+ 53
0
#' Creation de la Carte de la part du territoire communal artificialise selon OCSGE
#' @description Carte de la part du territoire communal artificialise selon OCSGE
#'
#' @param millesime_ocsge une année parmi les millesimes sélectionnables par l'utilisateur, au format numerique.
#'
#' @return Une carte
#'
#' @importFrom dplyr filter mutate arrange group_by summarise ungroup select
#' @importFrom glue glue
#' @importFrom lubridate make_date
#' @importFrom stats quantile
#' @importFrom mapfactory fond_carto creer_carte_communes
#'
#' @export
#'
#' @examples
#' creer_carte_1_7(millesime_ocsge=2017)
creer_carte_1_7 <- function(millesime_ocsge){
data <- result %>%
dplyr::mutate(valeur=as.numeric(.data$valeur)) %>%
dplyr::filter(.data$TypeZone == "Communes",
.data$date == lubridate::make_date(millesime_ocsge,"01","01"),
.data$variable %in% c("a_definir","autre_surface_naturelle","espace_agricole",
"espace_artificialise","surface_en_eau","surface_naturelle_boisee")) %>%
dplyr::arrange(.data$CodeZone) %>%
dplyr::group_by(.data$TypeZone,.data$Zone,.data$CodeZone,.data$date) %>%
dplyr::summarise(variable=.data$variable,valeur=.data$valeur / sum(.data$valeur,na.rm=T)) %>%
dplyr::filter(.data$variable == "espace_artificialise") %>%
dplyr::ungroup() %>%
dplyr::select(.data$TypeZone,.data$CodeZone,.data$Zone,.data$date,.data$valeur) %>%
dplyr::mutate(valeur=.data$valeur * 100)
fond_carto <- mapfactory::fond_carto(nom_reg = "Pays de la Loire")
bins <- stats::quantile(data$valeur,probs = c(0,0.1, 0.25, 0.5,0.75,0.9,1),na.rm=TRUE)
carte_1_7 <- mapfactory::creer_carte_communes(data = data,
code_region=52,
carto = fond_carto,
indicateur = valeur,
bornes = bins,
pourcent = TRUE,
decimales = 1,
titre = "Part du territoire communal artificialis\u00e9",
sous_titre = NULL,
bas_de_page = glue::glue("Source : OCSGE {millesime_ocsge}"),
suffixe = NULL
)
return(carte_1_7)
}
Loading