สร้างแผนที่ leaflet แผนที่แรก
ได้เห็นแล้วว่าแผนที่ leaflet สามารถสร้างขึ้นจากการรวม layer ต่าง ๆ เข้าด้วยกัน
นอกจากนี้ยังมีการตั้งค่าอื่น ๆ ที่ช่วยให้ผู้ใช้เลือก layer และผู้ให้บริการแผนที่ที่ต้องการได้
ในแบบฝึกหัดนี้ จะได้สร้างแผนที่ leaflet ของตัวเองพร้อมฟีเจอร์ต่าง ๆ
มี sf object สี่ตัวที่เก็บไว้ดังนี้:
london_polylondon_looplondon_capitallistings_geo
สามารถดู geometry attribute ของแต่ละ sf object ได้ด้วย $geometry
โหลดไลบรารี sf, tidyverse และ leaflet ไว้แล้ว
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การสร้างแดชบอร์ดด้วย shinydashboard
คำแนะนำการฝึกหัด
- เพิ่ม provider อีกตัวชื่อ
Esri.WorldStreetMap - เพิ่ม polygon สีแดง
- เติมข้อมูลใน
addLayersControl()ให้ครบ เพื่อให้ผู้ใช้สามารถเลือก overlay group และ layer ต่าง ๆ ได้ โดยเพิ่มตามลำดับที่ปรากฏในโค้ด
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
leaflet(london_poly) %>%
addTiles(group="Default") %>%
addProviderTiles(providers$Stamen.Toner, group = "Toner") %>%
# Add another provider called Esri.WorldStreetMap
___(___, group = "World street map") %>%
# Add red polygons
___(group = "Ward", col=___, label=~as.character(Name)) %>%
addPolylines(loop_geo[,1], loop_geo[,2], group = "London loop") %>%
addPolylines(capital_geo[,1], capital_geo[,2],
group = "Capital ring", color = "orange") %>%
addMarkers(data = listings_geo,
group = "Listings", clusterOptions = markerClusterOptions()) %>%
# Set up to allow user selection of different overlay groups and layers
___