Mulai sekarangMulai gratis

Peta Final

Karena peta leaflet kita dibangun dalam beberapa layer, kita dapat menambahkan berbagai jenis informasi ke peta dasar yang sama (misalnya, titik dan poligon). Saat menambahkan layer baru yang berbasis data berbeda ke objek leaflet yang sudah ada, kita harus menentukan argumen data pada fungsi yang membuat layer baru tersebut untuk menimpa data yang dipipakan melalui rangkaian fungsi.

m4  %>% 
    addCircleMarkers(data = private)

Mari gabungkan peta titik dan poligon kita untuk menambahkan sebuah layer yang menyoroti kode pos terkaya di Amerika ke peta semua perguruan tinggi di Amerika. Untuk memulai, versi berlayer terakhir dari peta perguruan tinggi m4 telah dicetak untuk Anda dan wealthy_zips SpatialPolygonsDataFrame sudah dimuat.

Setelah Anda membuat peta final, luangkan beberapa menit untuk menjelajahi (dan menikmati) peta leaflet Anda!

Latihan ini merupakan bagian dari kursus

Peta Interaktif dengan leaflet di R

Lihat Kursus

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# 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", ___))
Edit dan Jalankan Kode