CARTOGRAPHIE DES CENTRES D’ETAT CIVIL DU CONGO

Présentation

"Cette note est un essai de la réalisation de la carte thématique avec le package mapsf"

[1] "Cette note est un essai de la réalisation de la carte thématique avec le package mapsf"

Chargement des packages nécessaires

library(sf)
library(s2)
library(mapsf)
library(raster)
library(tmap)
library(tidyverse)

Définition de l’espace de travail

setwd("E:/Logiciel R/CARTOGRAPHIE AVEC R/TP CARTO")
cg <- st_read("Departements_du_CongoV.shp", quiet=TRUE)

Importation des données

library(readxl)
centres <- read_excel("Centres d'état civil VF 29_06_2022.xlsx")
cg1 <- st_read("Departements_du_CongoV.shp", quiet=TRUE) 
d <- select(centres,"Département","Centres_principaux" = "Centres principaux", "Centres_secondaires" = "Centres secondaires")
cg1 <- left_join(cg,d, by = c("Noms_Dép" = "Département"))

Suppression de certaines variables

#Suppresion de certaines variables----
cg1$OBJECTID <- NULL
cg1$Id <- NULL
cg1$Ojectid <- NULL

cg1$Centres_secondaires

 [1] 219 452 260 419 496 517 154 170 123 225 628 113

names(cg1)

sf::sf_use_s2 (FALSE) 

Spherical geometry (s2) switched off

Production de la carte

# Ma carte réussi----

#mf_init(x = d2, theme = "candy")
#expandBB valeurs fractionnaires pour développer le cadre de sélection avec, dans chaque direction (bas, gauche, haut, droite)
mf_init(x = cg1, theme = "candy", expandBB = c(0,0,0,0))
#mf_shadow(d2, add = TRUE)
mf_shadow(cg1, add = TRUE)

mf_map(cg1, add = TRUE)
mf_map(cg1, var = "Centres_secondaires",type = "prop",
      leg_pos = "right",
      add = TRUE)

Warning in st_centroid.sfc(x = st_geometry(x), of_largest_polygon = TRUE) :
  st_centroid does not give correct centroids for longitude/latitude data

mf_label(cg1, var ="Noms_Dép",halo = FALSE, cex = 0.8,
         overlap = FALSE,
         col = "black",
         lines = TRUE)

Warning in st_centroid.sfc(x = sf::st_geometry(x), of_largest_polygon = max(sf::st_is(sf::st_as_sf(x),  :
  st_centroid does not give correct centroids for longitude/latitude data

mf_arrow(pos = "topright")

#mf_legend(type = "prop", pos = "topright")#,val = c(1, 5, 10), inches = .3)
mf_layout(title = "Cartographie des centres d'état civil du Congo",
          arrow = FALSE,
          credits = paste0("Sources: INS, 2022\n", 
                           "mapsf ", 
                           packageVersion("mapsf")))

#mf_legend(type = "prop", pos = "topright", val = c(1, 5, 10), inches = .3)
mf_label(cg1, var ="Noms_Dép",halo = FALSE, cex = 0.8,
         overlap = FALSE,
         col = "black",
         lines = TRUE, add = TRUE)

Warning in st_centroid.sfc(x = sf::st_geometry(x), of_largest_polygon = max(sf::st_is(sf::st_as_sf(x),  :
  st_centroid does not give correct centroids for longitude/latitude data
Error in strwidth(words[i], cex = cex[i], ...) : 
  plot.new has not been called yet