Abschließende Karte
Da unsere leaflet-Karte aus Ebenen besteht, können wir verschiedene Arten von Informationen auf derselben Basiskarte kombinieren (z. B. Punkte und Polygone). Wenn wir auf Basis anderer Daten neue Ebenen zu einem vorhandenen leaflet-Objekt hinzufügen, müssen wir beim Erstellen der neuen Ebene das Argument data in der jeweiligen Funktion angeben, um die Daten zu überschreiben, die durch die Funktionskette gepiped werden.
m4 %>%
addCircleMarkers(data = private)
Lass uns unsere Punkte- und Polygonkarten kombinieren und eine Ebene hinzufügen, die die wohlhabendsten US-Postleitzahlen hervorhebt – zusätzlich zu unserer Karte mit allen Hochschulen in den USA. Damit du loslegen kannst, wurde die letzte geschichtete Version der Hochschulkarte m4 bereits ausgegeben und das SpatialPolygonsDataFrame wealthy_zips ist vorab geladen.
Nimm dir nach dem Erstellen der finalen Karte ein paar Minuten Zeit, um deine leaflet-Karte zu erkunden (und zu genießen)!
Diese Übung ist Teil des Kurses
<Kurs>Interaktive Karten mit leaflet in R</Kurs>Interaktive praktische Übung
Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.
# 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", ___))