diff --git a/R/creer_carte_3_2.R b/R/creer_carte_3_2.R index 3cd2ba1477bda16843fc5754b1f0ecf8a1e595a6..a503c08b3b4114129d89350b2dff5616133690fe 100644 --- a/R/creer_carte_3_2.R +++ b/R/creer_carte_3_2.R @@ -55,15 +55,13 @@ creer_carte_3_2 <- function(millesime_etalement_urbain, indicateur_etalement_urbain = replace(.data$indicateur_etalement_urbain, .data$indicateur_etalement_urbain == "classe 2b", "\nL'artificialisation d\u00e9croit \nmoins vite que la population"), indicateur_etalement_urbain = replace(.data$indicateur_etalement_urbain, .data$indicateur_etalement_urbain == "classe 2c","\nL'artificialisation d\u00e9croit \nplus vite que la population"), indicateur_etalement_urbain = replace(.data$indicateur_etalement_urbain, .data$indicateur_etalement_urbain == "classe 3", "\nL'artificialisation progresse\nplus vite que la population"), - indicateur_etalement_urbain = replace(.data$indicateur_etalement_urbain, .data$indicateur_etalement_urbain == "classe 4", "\nL'artificialisation progresse\nmoins vite que la population"), - indicateur_etalement_urbain = replace(.data$indicateur_etalement_urbain, .data$indicateur_etalement_urbain == "classe 5", "\nL'artificialisation progresse\nplus vite que la population"),# idem 3 - indicateur_etalement_urbain = replace(.data$indicateur_etalement_urbain, .data$indicateur_etalement_urbain == "classe 6","\nL'artificialisation progresse \net la population d\u00e9croit") + indicateur_etalement_urbain = replace(.data$indicateur_etalement_urbain, .data$indicateur_etalement_urbain == "classe 4","\nL'artificialisation progresse \net la population d\u00e9croit") ) %>% dplyr::mutate(indicateur_etalement_urbain=as.factor(.data$indicateur_etalement_urbain))%>% dplyr::mutate(indicateur_etalement_urbain= forcats::fct_relevel(.data$indicateur_etalement_urbain, - "\nL'artificialisation progresse \net la population d\u00e9croit", # classe 6 - "\nL'artificialisation progresse\nplus vite que la population", # classes 3 et 5 - "\nL'artificialisation progresse\nmoins vite que la population", # classe 2a et 4 + "\nL'artificialisation progresse \net la population d\u00e9croit", # classe 4 + "\nL'artificialisation progresse\nplus vite que la population", # classes 3 + "\nL'artificialisation progresse\nmoins vite que la population", # classe 2a "\nL'artificialisation d\u00e9croit \nmoins vite que la population", # classe 2b "\nL'artificialisation d\u00e9croit \nplus vite que la population", # classe 2c "\nL'artificialisation d\u00e9croit \net la population croit" # classe 1 diff --git a/data/etalement_urbain.rda b/data/etalement_urbain.rda index 4dc32b8488efc5e95f0cec3024360f24aff22460..e86a2cd7ca696acc92163d61a5271864116d245f 100644 Binary files a/data/etalement_urbain.rda and b/data/etalement_urbain.rda differ