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

การแสดงวิทยาลัยรัฐบาลและเอกชนบนแผนที่

เราสามารถเพิ่มวิทยาลัยเอกชนได้ในลักษณะเดียวกับที่เพิ่มวิทยาลัยรัฐบาล จากนั้นใช้ฟังก์ชัน addLayersControl() พร้อมอาร์กิวเมนต์ overlayGroups เพื่อให้ผู้ใช้สามารถเลือกแสดงวิทยาลัยรัฐบาล และ/หรือวิทยาลัยเอกชนได้ อาร์กิวเมนต์ overlayGroups รับเวกเตอร์ของกลุ่มที่เรากำหนดไว้ตอนสร้าง layer (ได้แก่ public และ private) เพื่อเป็นการทบทวน นี่คือวิธีเพิ่มวิทยาลัยรัฐบาลลงในแผนที่เป็น layer:

# Create data frame called public with only public colleges
public <- filter(ipeds, sector_label == "Public")  

# Add public colleges as a layer and save map as `m3`
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

ไลบรารี htmltools, color palette pal และแผนที่ m3 ที่มีวิทยาลัยรัฐบาลถูกโหลดไว้ให้แล้ว

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

Interactive Maps with leaflet in R

ดูคอร์ส

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

  • กรองข้อมูล ipeds เพื่อสร้าง data frame ที่มีเฉพาะวิทยาลัยเอกชน
  • เพิ่มวิทยาลัยเอกชนลงใน m3 เป็น layer ใหม่
  • ใช้ฟังก์ชัน addLayersControl() และอาร์กิวเมนต์ overlayGroups เพื่อให้ผู้ใช้สามารถเปิด/ปิด layer ของวิทยาลัยรัฐบาลและเอกชนได้

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

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

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

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

m3
แก้ไขและรันโค้ด