Aan de slagBegin gratis

Definitieve kaart

Omdat onze leaflet-kaart in lagen is opgebouwd, kunnen we verschillende soorten informatie aan dezelfde basiskaart toevoegen (bijv. punten en polygonen). Wanneer je nieuwe lagen op basis van andere data toevoegt aan een bestaand leaflet-object, moet je het argument data meegeven aan de functie die de nieuwe laag maakt, zodat je de data overschrijft die via de keten van functies wordt doorgegeven.

m4  %>% 
    addCircleMarkers(data = private)

Laten we onze punten- en polygonenkaarten combineren om een laag toe te voegen die de rijkste Amerikaanse postcodes benadrukt op onze kaart met alle colleges in Amerika. Om je op weg te helpen is de laatste versie met lagen van de collegekaart m4 voor je geprint en is de SpatialPolygonsDataFrame wealthy_zips vooraf geladen.

Neem na het maken van de definitieve kaart een paar minuten de tijd om je leaflet-kaart te verkennen (en ervan te genieten)!

Deze oefening maakt deel uit van de cursus

Interactieve kaarten met leaflet in R

Bekijk cursus

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

# 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", ___))
Code bewerken en uitvoeren