CommencezCommencez gratuitement

Carte finale

Comme notre carte leaflet est construite en couches, nous pouvons ajouter différents types d'information à la même carte de base (p. ex., des points et des polygones). Lorsque vous ajoutez de nouvelles couches fondées sur des données différentes à un objet leaflet existant, vous devez préciser l'argument data dans la fonction qui crée la nouvelle couche pour remplacer les données acheminées par la chaîne de fonctions.

m4  %>% 
    addCircleMarkers(data = private)

Combinons maintenant nos cartes de points et de polygones pour ajouter une couche qui met en évidence les codes postaux américains les plus riches à notre carte de tous les collèges des États-Unis. Pour vous lancer, la dernière version superposée de la carte des collèges, m4, a été affichée pour vous, et le SpatialPolygonsDataFrame wealthy_zips est déjà chargé.

Après avoir créé la carte finale, prenez quelques minutes pour explorer (et apprécier) votre carte leaflet!

Cette activité fait partie du cours

Cartes interactives avec leaflet en R

Voir le cours

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# Add polygons using wealthy_zips
final_map <- ___ %>% 
   addPolygons(data = ___, weight = 1, fillOpacity = .5, color = "Grey",  group = "Wealthy Zip Codes", 
              label = ~paste0("Mean Income: ", dollar(mean_income)),
              highlight = highlightOptions(weight = 5, color = "white", bringToFront = TRUE)) %>% 
    # Update layer controls including "Wealthy Zip Codes"
    addLayersControl(baseGroups = c("OSM", "Carto", "Esri"), 
                         overlayGroups = c("Public", "Private", "For-Profit", ___))
Modifier et exécuter le code