Začněte nyníZačněte zdarma

Finální mapa

Protože leaflet mapa se skládá z vrstev, můžeme na jeden podkladový základ přidat různé typy informací (například body i polygony). Pokud přidáváš novou vrstvu s odlišnými daty do existujícího objektu leaflet, musíš v příslušné funkci explicitně specifikovat argument data, aby přepsal data přenášená řetězcem funkcí.

m4  %>% 
    addCircleMarkers(data = private)

Pojďme teď propojit mapu bodů a mapu polygonů — přidáme vrstvu zvýrazňující nejbohatší PSČ Ameriky do naší mapy všech amerických vysokých škol. Jako výchozí bod máš k dispozici vytištěnou poslední vrstvovou verzi mapy vysokých škol m4 a předem načtený SpatialPolygonsDataFrame s názvem wealthy_zips.

Až finální mapu vytvoříš, dopřej si pár minut na její prozkoumání (a užij si ji)!

Toto cvičení je součástí kurzu

Interaktivní mapy s leaflet v R

Zobrazit kurz

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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", ___))
Upravit a spustit kód