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

การสร้างแผนที่วิทยาลัยของรัฐ

เราสามารถเพิ่มแต่ละภาคส่วน (sector) ลงในแผนที่เป็น layer แยกกัน เพื่อให้ผู้ใช้เลือกได้ว่าต้องการแสดงภาคส่วนใดบ้าง โดยจะใช้อาร์กิวเมนต์ใหม่ในฟังก์ชัน addCircleMarkers() ที่เรียกว่า group

leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, 
                         label = ~htmlEscape(name), 
                         group = "Public")

นอกจากนี้ เราจะนำฟีเจอร์จากไลบรารี htmltools มาใช้ด้วย การครอบป้ายกำกับด้วยฟังก์ชัน htmlEscape() จะช่วยกำจัดอักขระที่อาจถูกตีความเป็น HTML ซึ่งป้องกันไม่ให้ชื่อวิทยาลัยแสดงผลผิดรูปแบบโดยไม่ตั้งใจ

ชุดสีพาเลต pal ที่สร้างไว้ใน Chapter 2 ได้ถูกโหลดเตรียมไว้ให้แล้ว

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

Interactive Maps with leaflet in R

ดูคอร์ส

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

  • โหลดแพ็กเกจ htmltools
  • กรองข้อมูล ipeds เพื่อสร้าง data frame ที่มีเฉพาะวิทยาลัยของรัฐ
  • สร้างแผนที่ leaflet สำหรับวิทยาลัยของรัฐ
  • เพิ่มอาร์กิวเมนต์ group ลงในฟังก์ชัน addCircleMarkers()

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

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

# Load the htmltools package
___

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

# Create a leaflet map of public colleges called m3 
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = ___, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), ___ = "Public")

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