CommencerCommencez gratuitement

Carte finale

Comme notre carte leaflet est construite par couches, nous pouvons ajouter différents types d'informations sur la même carte de base (par exemple, des points et des polygones). Lorsque vous ajoutez de nouvelles couches issues de différentes données à un objet leaflet existant, vous devez préciser l'argument data dans la fonction qui crée la nouvelle couche, afin d'écraser les données transmises le long de la chaîne de fonctions.

m4  %>% 
    addCircleMarkers(data = private)

Combinons nos cartes de points et de polygones pour ajouter une couche qui met en évidence les codes postaux les plus aisés des États-Unis sur notre carte de tous les établissements d'enseignement supérieur américains. Pour vous lancer, la dernière version superposée de la carte des établissements, m4, a été affichée pour vous et le SpatialPolygonsDataFrame wealthy_zips est préchargé.

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

Cet exercice fait partie du cours

<cours>Cartes interactives avec leaflet en R</cours>
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