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

การเพิ่ม Popup และการจัดเก็บแผนที่

เพื่อให้แผนที่มีข้อมูลมากขึ้น เราสามารถเพิ่ม popup ได้ หากต้องการให้ popup แสดงขึ้นเมื่อคลิกที่ marker ให้ระบุอาร์กิวเมนต์ popup ในฟังก์ชัน addMarkers() เมื่อได้แผนที่ที่ต้องการแล้ว สามารถจัดเก็บไว้ในออบเจกต์เพื่อใช้งานต่อ จากนั้น pipe ออบเจกต์นั้นเข้ากับฟังก์ชันต่าง ๆ เพื่อเพิ่มหรือแก้ไข layer ของแผนที่ได้

dc_nyc <- 
    leaflet() %>% 
        addTiles() %>% 
        addMarkers(lng = -73.98575, lat = 40.74856, 
                   popup = "DataCamp - NYC") 

dc_nyc %>% 
    setView(lng = -73.98575, lat = 40.74856, 
            zoom = 2)

ลองเพิ่ม popup ให้กับ marker ทั้งสองตำแหน่งของ DataCamp และจัดเก็บแผนที่ไว้ในออบเจกต์กัน

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

Interactive Maps with leaflet in R

ดูคอร์ส

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

  • เพิ่มอาร์กิวเมนต์ popup ใน addMarkers() เพื่อแสดงค่าจากคอลัมน์ hq และจัดเก็บแผนที่ leaflet ไว้ในออบเจกต์ชื่อ map
  • กำหนดมุมมองของ map ให้อยู่ที่สำนักงานใหญ่เบลเยียม โดยตั้งค่า zoom เป็น 5 และจัดเก็บไว้ใน map_zoom
  • แสดงผลออบเจกต์ map_zoom

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

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

# Store leaflet hq map in an object called map
 ___ <- leaflet() %>%
          addProviderTiles("CartoDB") %>%
          # Use dc_hq to add the hq column as popups
          addMarkers(lng = dc_hq$lon, lat = dc_hq$lat,
                     popup = ___$___)

# Center the view of map on the Belgium HQ with a zoom of 5 
map_zoom <- ___ %>%
      setView(lat = 50.881363, lng = 4.717863,
              zoom = ___)

# Print map_zoom
___
แก้ไขและรันโค้ด