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

แมปมหาวิทยาลัยทั้งหมด

มาเพิ่ม Layer ต่อกันโดยนำวิทยาลัยเอกชนมุ่งกำไรมาใส่ในแผนที่ leaflet ที่เก็บไว้ในออบเจ็กต์ m3

หลังจาก print() แผนที่ m3 ที่มีวิทยาลัยภาครัฐ เอกชน และมุ่งกำไรเป็น Layer แยกกันแล้ว ให้ลองปิด Layer ทั้งสามแล้วเพิ่มกลับในลำดับที่ต่างออกไป

แต่ละภาคส่วนของวิทยาลัยจะถูกเพิ่มกลับเข้าแผนที่เป็น Layer ตามลำดับที่กำหนด นั่นคือ ภาคส่วนที่เลือกลำดับสุดท้ายจะแสดงอยู่บนสุด

ชุดสีพาเลต pal และแผนที่ m3 ที่มีวิทยาลัยภาครัฐและเอกชนถูกโหลดไว้ให้แล้ว

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

Interactive Maps with leaflet in R

ดูคอร์ส

คำแนะนำการฝึกหัด

  • กรองข้อมูล ipeds เพื่อสร้าง data frame ที่มีเฉพาะวิทยาลัยมุ่งกำไร แล้วกำหนดให้กับ profit
  • สร้างแผนที่ leaflet ของวิทยาลัยภาครัฐ เอกชน และมุ่งกำไร
  • ใช้ฟังก์ชัน addLayersControl() และอาร์กิวเมนต์ overlayGroups เพื่อให้ผู้ใช้สามารถเปิด-ปิดแสดงวิทยาลัยทั้งสามภาคส่วนได้
  • กำหนดจุดศูนย์กลางแผนที่ให้อยู่กึ่งกลางของสหรัฐอเมริกา และตั้งระดับซูมที่ 4

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

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

# Create data frame called profit with only For-Profit colleges
___ <- filter(ipeds, sector_label == "For-Profit")  

# Add For-Profit colleges to `m3` as a new layer
m3 <- m3 %>% 
        addCircleMarkers(data = ___, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label),   group = "___")  %>% 
        addLayersControl(overlayGroups = c("Public", "Private", "___"))  

# Center the map on the middle of the US with a zoom of 4
m4 <- m3 %>%
        ___(lat = 39.8282, lng = -98.5795, zoom = 4) 
        
m4
แก้ไขและรันโค้ด