Skip to content

Latest commit

 

History

History
123 lines (100 loc) · 4.36 KB

README.md

File metadata and controls

123 lines (100 loc) · 4.36 KB

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 :