In ARCEP-dev/cartoutremer: Faliciter la cartographie les territoires de la France d'outre-mer

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

cartoutremer

Le package R cartoutremer permet de faciliter la cartographie des territoires français d'Outre-Mer (DROM et COM) dans les outils R et QGis. Ces territoires sont placés à proximité de la France métropolitaine et leur échelle est altérée afin de faciliter la lisibilité des cartes produites.

Les transformations d'entités géographiques de type point, ligne et polygone sont supportées ; quel que soit le système de projection du sfdataframe en entrée, le sfdataframe généré par la fonction transfo_om est projeté en RGF93 / Lambert-93 (EPSG:2154).

Les territoires de France d'Outre-Mer inclus sont les suivants :

• l'ensemble des DROM (Départements et Régions d'outre-mer)
• Guadeloupe (971)
• Martinique (972)
• Guyane (973)
• La Réunion (974)
• Mayotte (976)
• les COM (Collectivités d'outre-mer) suivantes :
• Saint-Pierre-et-Miquelon (975)
• Saint-Barthélémy (977)
• Saint-Martin (978)
• Wallis-et-Futuna (986)
• Polynésie Française (987)
• Nouvelle-Calédonie (988)

Installation :

remotes::install_github("ARCEP-dev/cartoutremer")

Exemple :

library(cartoutremer)

# import des contours des départements de France métropolitaine et des DROM en projection conventionnelle 
# et conversion en projection WGS 1984
# puis agrégation de l'ensemble des départements

DEP_FRMETDROM <- DEP_FRMET %>% st_transform(4326) %>%
  rbind.data.frame(DEP_971 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_972 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_973 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_974 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_975 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_976 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_977 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_978 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_986 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_987 %>% st_transform(4326)) %>%
  rbind.data.frame(DEP_988 %>% st_transform(4326)) %>%
  identity()

# transformation des DROM pour les afficher à proximité de la France métropolitaine
DEP_FRMETDROM.proches <-
  transfo_om(shape_origine = DEP_FRMETDROM,
             var_departement = "INSEE_DEP",
             type_transfo = "v1")

# cartographie avec ggplot
library(ggplot2)
ggplot() +
  geom_sf(data = DEP_FRMETDROM.proches)

Ajout des cartons

ggplot() +
  geom_sf(data = DEP_FRMETDROM.proches) +
  # délimitations des zones
  geom_rect(data = param_cadres_om %>%
              filter(type_rapp %in% "v1"),
              aes(xmin = xmin, xmax = xmax, 
                  ymin = ymin, ymax = ymax, 
                  group = DEP, color = DEP),
              fill = NA,
              stroke = 1) +
  # affichage des étiquettes
    geom_text(data = param_cadres_om %>%
                filter(type_rapp %in% "v1"),
               aes(x = xmax-20000, 
                   y = ymax-15000, 
                   color = DEP,
                   label = DEP),
               fill = NA,
               size = 2.3,
               fontface = "bold") +
  theme(axis.title = element_blank(),
        axis.text = element_blank())

Ressources annexes :

• Contours des communes de France métropolitaine et DROM en projection WGS1984 mis à disposition par l'Arcep sur data.gouv.fr

• Contours des communes des COM (Saint-Pierre-et-Miquelon, Saint-Barthélémy, Saint-Martin) mis à disposition par l'Arcep sur data.gouv.fr

• Contours des communes de Wallis-et-Futuna , de Polynésie Française et de Nouvelle-Calédonie.

ARCEP-dev/cartoutremer documentation built on June 24, 2024, 8:02 a.m.