Tracer DataCamp HQ

Cartes interactives avec leaflet en R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Tracer un point

# ajouter une couche de repères à la carte
leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng = -73.98575, 
                lat = 40.74856)

Exemple avec un seul repère

Fournir des données de repère
- Colonnes numériques d'un data frame
- Vecteurs numériques
Valeurs par défaut de addMarkers()
- Centrée sur un seul point
- Zoom ajusté à tous les points

Tracer plusieurs points

dc_hq <- 
     tibble(
         hq  = c("DataCamp - NYC", "DataCamp - Belgium"),
         lon = c(-73.98575, 4.717863),
         lat = c(40.74856, 50.881363))
leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng = dc_hq$lon, lat = dc_hq$lat)

Exemple avec plusieurs repères

Tracer plusieurs points II

# Lorsqu'on transmet un data frame à leaflet avec le tuyau, R cherche 
# des colonnes nommées lat/latitude et lon/lng/long/longitude  
dc_hq  %>% 
     leaflet() %>% 
     addTiles() %>% 
     addMarkers() 
Assuming 'lon' and 'lat' are longitude and latitude, respectively

Exemple avec plusieurs repères

Fenêtres contextuelles

leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng = dc_hq$lon, lat = dc_hq$lat, 
               popup = dc_hq$hq)

Exemple de repères avec fenêtres contextuelles

Fenêtres contextuelles II

leaflet() %>% 
     addTiles() %>% 
     addPopups(lng = dc_hq$lon, lat = dc_hq$lat,
               popup = dc_hq$hq)

Exemple de fenêtres contextuelles

Enregistrer des cartes leaflet comme objets

m <- leaflet() %>%
     addTiles()  %>% 
     setView(lng = dc_hq$lon[1], 
             lat = dc_hq$lat[1], 
             zoom = 12)

Enregistrer des cartes comme objets

# appliquer %>% des objets leaflet à des fonctions 
# pour ajouter ou modifier des couches
m %>% addMarkers(lng = dc_hq$lon, 
                 lat = dc_hq$lat, 
                 popup = dc_hq$hq)

Ajouter des couches

Passons à la pratique !

Cartes interactives avec leaflet en R