ÎncepețiÎncepe gratuit

Harta finală

Deoarece harta leaflet este construită în straturi, putem adăuga diferite tipuri de informații pe aceeași hartă de bază (de exemplu, puncte și poligoane). Când adaugi straturi noi bazate pe date diferite la un obiect leaflet existent, trebuie să specifici argumentul data în funcția care creează noul strat, pentru a suprascrie datele transmise prin lanțul de funcții.

m4  %>% 
    addCircleMarkers(data = private)

Hai să combinăm hărțile cu puncte și cu poligoane pentru a adăuga un strat care evidențiază codurile poștale cu cei mai înstăriți locuitori din America pe harta tuturor colegiilor din țară. Ca punct de plecare, ultima versiune stratificată a hărții colegiilor, m4, a fost afișată pentru tine, iar wealthy_zips SpatialPolygonsDataFrame este deja încărcat.

După ce creezi harta finală, ia-ți câteva minute să explorezi (și să te bucuri de) harta ta leaflet!

Acest exercițiu face parte din cursul

Hărți interactive cu leaflet în R

Vezi cursul

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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", ___))
Editează și rulează codul