Carte géo

---

1 Cartes interactives avec leaflet

1.1 Leaflet est un package permettant de faire de la cartographie interactive. Un fond de carte s’obtient avec les fonctions leaflet et addTiles

library(leaflet)

## Warning: le package 'leaflet' a été compilé avec la version R 4.3.2

leaflet() %>% addTiles()

1.2 On dispose de plusieurs styles de fonds de cartes

Paris <- c(2.351462,48.8567)
m2 <- leaflet() %>% setView(lng = Paris[1], lat = Paris[2], zoom = 12) %>%
  addTiles()
m2 %>% addProviderTiles("Stamen.Toner")

m2 %>% addProviderTiles("Wikimedia")

m2 %>% addProviderTiles("Esri.NatGeoWorldMap")

m2 %>%
  addProviderTiles("Stamen.Watercolor") %>%
  addProviderTiles("Stamen.TonerHybrid")

1.3 Il est souvent utile de repérer des lieux sur une carte à l’aide de symboles. On pourra effectuer cela à l’aide des fonctions addMarkers et addCircles…

data(quakes)
leaflet(data = quakes[1:20,]) %>% addTiles() %>%
addMarkers(~long, ~lat, popup = ~as.character(mag))

1.4 On remarque que l’on utilise ici un tilde pour spécifier qu’on utilise des variables dans un dataframe. Le caractère interactif de la carte permet d’ajouter de l’information lorsqu’on clique sur un marker (grâce à l’option popup). On peut également ajouter des popups qui contiennent plus d’information, voire des liens vers des sites web

content <- paste(sep = "<br/>",
"<b><a href='http://www.samurainoodle.com'>Samurai Noodle</a></b>",
"606 5th Ave. S",
"Seattle, WA 98138"
)
leaflet() %>% addTiles() %>%
addPopups(-122.327298, 47.597131, content,
options = popupOptions(closeButton = FALSE)
)