เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

แผนที่สุดท้าย

เนื่องจากแผนที่ leaflet ถูกสร้างขึ้นเป็นชั้นๆ เราจึงสามารถเพิ่มข้อมูลประเภทต่างๆ ลงบนแผนที่พื้นฐานเดียวกันได้ (เช่น จุดและรูปหลายเหลี่ยม) เมื่อต้องการเพิ่ม Layer ใหม่ที่ใช้ข้อมูลคนละชุดกับ leaflet object ที่มีอยู่ ต้องระบุ argument data ในฟังก์ชันที่สร้าง Layer ใหม่นั้น เพื่อแทนที่ข้อมูลที่ส่งผ่านมาในลำดับฟังก์ชัน

m4  %>% 
    addCircleMarkers(data = private)

มารวมแผนที่แบบจุดและแบบรูปหลายเหลี่ยมเข้าด้วยกัน โดยเพิ่ม Layer ที่แสดงรหัสไปรษณีย์ที่ร่ำรวยที่สุดในอเมริกาลงในแผนที่มหาวิทยาลัยทุกแห่งในอเมริกา เพื่อให้เริ่มต้นได้ง่ายขึ้น แผนที่มหาวิทยาลัยเวอร์ชันล่าสุด m4 ได้ถูกแสดงไว้แล้ว และ wealthy_zips SpatialPolygonsDataFrame ก็โหลดไว้พร้อมใช้งานแล้ว

หลังจากสร้างแผนที่สุดท้ายเสร็จแล้ว ลองใช้เวลาสักครู่เพื่อสำรวจ (และเพลิดเพลินกับ) แผนที่ leaflet ของคุณ!

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

Interactive Maps with leaflet in R

ดูคอร์ส

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# 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", ___))
แก้ไขและรันโค้ด