Final Harita
leaflet haritamız katmanlar halinde oluşturulduğu için, aynı temel harita üzerine farklı türde bilgileri ekleyebiliriz (ör. noktalar ve çokgenler). Mevcut bir leaflet nesnesine farklı verilere dayalı yeni katmanlar eklerken, fonksiyon zinciriyle aktarılan veriyi geçersiz kılmak için yeni katmanı oluşturan fonksiyonda data argümanını belirtmemiz gerekir.
m4 %>%
addCircleMarkers(data = private)
Hadi, nokta ve çokgen haritalarımızı birleştirip Amerika'daki tüm üniversitelerin haritasına, ülkenin en varlıklı posta kodlarını vurgulayan bir katman ekleyelim. Başlaman için, üniversite haritasının son katmanlı sürümü m4 senin için yazdırıldı ve wealthy_zips SpatialPolygonsDataFrame'i önceden yüklendi.
Final haritayı oluşturduktan sonra, leaflet haritanı birkaç dakika keşfet (ve tadını çıkar)!
Bu egzersiz, kursun bir parçasıdır
R ile leaflet kullanarak Etkileşimli Haritalar
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# 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", ___))