Slutkarta
Eftersom vår leaflet-karta byggs upp i lager kan vi lägga till olika typer av information på samma grundkarta (t.ex. punkter och polygoner). När vi lägger till nya lager baserade på annan data till ett befintligt leaflet-objekt måste vi ange data-argumentet i funktionen som skapar det nya lagret, för att åsidosätta den data som skickas genom funktionskedjan.
m4 %>%
addCircleMarkers(data = private)
Nu ska vi kombinera punkt- och polygonkartorna för att lägga till ett lager som markerar USA:s rikaste postnummerområden på vår karta över landets alla högskolor och universitet. Som startpunkt har den senaste lagerversionen av högskolkartan m4 skrivits ut åt dig, och wealthy_zips SpatialPolygonsDataFrame är förinläst.
När du har skapat slutkartan – ta en stund att utforska (och njuta av) din leaflet-karta!
Den här övningen är en del av kursen
Interaktiva kartor med leaflet i R
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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", ___))