ajout exercice cartographique

bloc3/02_figures.Rmd

@@ -789,8 +789,113 @@ class: inverse, center, middle
 
 ---
 
+# Les cartes
+
+- Les cartes sont un outil de visualisation très puissant.
+- Elles permettent de représenter des données géographiques.
+
+Deux types de données géographiques :
+
+- Les données raster
+- Les données vectorielles
+
+---
+
+# Les cartes
+
+## Données raster
+
+- Les données raster sont des données qui sont stockées sous forme de grilles régulières.
+
+```{r, eval=TRUE, echo=FALSE}
+library(terra)
+
+# Créer une matrice de valeurs aléatoires
+mat <- matrix(data = runif(n = 100, min = 1, max = 10), nrow = 10, ncol = 10)
+
+# Créer un objet raster à partir de la matrice
+r <- rast(mat)
+
+# Afficher l'objet raster
+plot(r)
+```
+
+---
+
+# Les cartes
+
+## Données raster
+
+
+```{r, eval=FALSE, echo=TRUE}
+library(terra)
+
+# Créer une matrice de valeurs aléatoires
+mat <- matrix(data = runif(n = 100, min = 1, max = 10), nrow = 10, ncol = 10)
+
+# Créer un objet raster à partir de la matrice
+r <- rast(mat)
+
+# Afficher l'objet raster
+r
+```
+
+
+---
+
+# Les cartes
+
+## Données vectorielles
+
+- Les données vectorielles sont des données qui sont associées à des coordonnées géographiques et qui sont stockées sous forme de points, de lignes ou de polygones.
+- Les données vectorielles sont souvent utilisées pour représenter des données discrètes, telles que les limites administratives ou les points d'intérêt.
+
+```{r, eval=TRUE, echo=FALSE}
+library(sf)
+
+# Créer des données vectorielles
+pts <- st_sfc(st_point(c(1, 1)), st_point(c(1, 2)), st_point(c(2, 2)), st_point(c(2, 1)))
+shp <- st_sf(data.frame(id = 1:4), geometry = pts)
+
+# Faire une figure avec les données vectorielles
+plot(shp)
+
+## Ajouter la position des points
+text(x = 1:4, y = 1:4, labels = c("POINT (1,1)", "POINT (1,2)", "POINT (2,2)", "(2,1)"))
+```
+
+---
+
+# Les cartes
+
+## Données vectorielles
+
+```{r, eval=FALSE}
+library(sf)
+
+# Créer des données vectorielles
+pts <- st_sfc(st_point(c(1, 1)), st_point(c(2, 2)), st_point(c(3, 3)), st_point(c(4, 4)))
+shp <- st_sf(data.frame(id = 1:4), geometry = pts)
+
+# Donner un nom aux points
+shp$nom <- c("A", "B", "C", "D")
+
+# Sauver les données
+st_write(obj = shp, dsn = "assets/points.shp")
+
+# Lire des données vectorielles à partir d'un fichier shapefile
+nc <- st_read(dsn = "assets/points.shp")
+
+# Afficher les données vectorielles
+nc
+```
+
+---
+
 # Cartes interactives avec `leaflet`
 
+ATTENTION !! Cette fonctionnalité requiert plus de ressources et ne fonctionne pas sur tous les appareils.
+
 ```{r, eval=FALSE}
 library(leaflet)
 
@@ -811,7 +916,11 @@ m
 
 ## 15 minutes
 
-Gnénérez une carte interactive qui présente la localisation des 3 campus de l'UdS.
+Gnénérez une carte de couverture du sol pour le mont Bellevue.
+
+Couverture du sol : <https://www.donneesquebec.ca/recherche/dataset/utilisation-du-territoire>
+
+Mont Bellevue : [en format geopackage](./assets/data/mont_bellevue.geojson)
 
 ---
 class: inverse, center, middle

bloc3/assets/data/bellevue.geojson

@@ -0,0 +1,8 @@
+{
+"type": "FeatureCollection",
+"name": "bellevue",
+"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
+"features": [
+{ "type": "Feature", "properties": { "fid": 1 }, "geometry": { "type": "Polygon", "coordinates": [ [ [ -71.930303510405878, 45.372192123970592 ], [ -71.927425057338752, 45.37208448287695 ], [ -71.920415256516876, 45.379647293604577 ], [ -71.920906302022075, 45.381526355352811 ], [ -71.920692169996258, 45.381584807455297 ], [ -71.92092572644269, 45.382883376213371 ], [ -71.918927517981402, 45.382899490796383 ], [ -71.916938227353185, 45.384119242311847 ], [ -71.916838463226881, 45.385864530378164 ], [ -71.915123368260893, 45.385768566422286 ], [ -71.915154333774439, 45.385152726029851 ], [ -71.914242394609147, 45.385106564061246 ], [ -71.914225076700959, 45.384850981220517 ], [ -71.912727638188841, 45.384747654694962 ], [ -71.911769127581763, 45.385087284745836 ], [ -71.911339081280403, 45.385178592467057 ], [ -71.910430547468621, 45.384645568703569 ], [ -71.909881316380918, 45.384587177074486 ], [ -71.908938310110017, 45.384618861329088 ], [ -71.908406333454977, 45.384278101469008 ], [ -71.9081818030497, 45.384183177437279 ], [ -71.906946921176811, 45.384199029891704 ], [ -71.906971114340067, 45.384556847168511 ], [ -71.906168001899971, 45.384506959426659 ], [ -71.906109261568091, 45.383637974674386 ], [ -71.905262986986855, 45.383487063910913 ], [ -71.904988380908733, 45.383188883302978 ], [ -71.903392562501949, 45.383242420638226 ], [ -71.902725919526901, 45.38305984796186 ], [ -71.902159458600636, 45.38274583104495 ], [ -71.902017868722069, 45.382263870167108 ], [ -71.902275225317211, 45.381768533575617 ], [ -71.902710436458378, 45.38175393980314 ], [ -71.90376912848258, 45.380745016418615 ], [ -71.903427191389, 45.380525941112424 ], [ -71.903744973776597, 45.379849262116494 ], [ -71.904038556134822, 45.379890645366544 ], [ -71.90442367121554, 45.379672795482605 ], [ -71.90440640493334, 45.379417213781984 ], [ -71.90446339682191, 45.379184756697633 ], [ -71.9058259459933, 45.378908484161471 ], [ -71.906131616926828, 45.379128768119543 ], [ -71.908162488575485, 45.379060571127681 ], [ -71.90796903093549, 45.378349817844885 ], [ -71.908573434989179, 45.378150202134627 ], [ -71.908825479528687, 45.377040243110145 ], [ -71.909251913346708, 45.375821961778897 ], [ -71.909516034653393, 45.374890911171086 ], [ -71.910315426022024, 45.373813790328747 ], [ -71.910968073055301, 45.373253915801783 ], [ -71.911915982965354, 45.372760955284761 ], [ -71.912867335670342, 45.372319101711739 ], [ -71.913487136815675, 45.371811547760316 ], [ -71.914105194230984, 45.371278432970065 ], [ -71.914308901996165, 45.3710666505809 ], [ -71.915087564017355, 45.37075866699238 ], [ -71.919094707151899, 45.369291668443488 ], [ -71.923882514090508, 45.369155802841718 ], [ -71.92394541919235, 45.371151723764036 ], [ -71.92827940370799, 45.371287132485641 ], [ -71.930303510405878, 45.372192123970592 ] ] ] } }
+]
+}