Mapa finałowa
Ponieważ mapa leaflet jest budowana warstwami, możemy dodawać różne typy informacji do tej samej mapy bazowej (np. punkty i wielokąty). Gdy dodajemy nowe warstwy oparte na innych danych do istniejącego obiektu leaflet, musimy podać argument data w funkcji tworzącej nową warstwę – w ten sposób nadpisujemy dane przekazane przez łańcuch funkcji.
m4 %>%
addCircleMarkers(data = private)
Połączmy nasze mapy punktowe i wielokątów, aby dodać warstwę wyróżniającą najbogatsze kody pocztowe w Ameryce do mapy wszystkich amerykańskich uczelni. Na dobry początek ostatnia warstwowa wersja mapy uczelni m4 została już wyświetlona, a wealthy_zips SpatialPolygonsDataFrame jest wstępnie wczytany.
Po utworzeniu finalnej mapy poświęć chwilę na jej eksplorację (i cieszenie się nią)!
To ćwiczenie jest częścią kursu
Interaktywne mapy z leaflet w R
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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", ___))