R-studio : ( EP#03 ) เรียนรู้ใช้แผนที่ Leaflet Map ขั้นประยุกต์ ด้วยโปรแกรม R

R-studio : ( EP#03 ) เรียนรู้ใช้แผนที่ Leaflet Map ขั้นประยุกต์ ด้วยโปรแกรม R

R-studio : ( EP#03 ) เรียนรู้ใช้แผนที่ Leaflet Map ขั้นประยุกต์ ด้วยโปรแกรม R
การเรียนรู้การใช้ Leaflet Map ขั้นประยุกต์ใน R เป็นก้าวสำคัญของนักวิเคราะห์ข้อมูลเชิงพื้นที่ที่ต้องการสร้างแผนที่แบบ Interactive ที่สามารถโต้ตอบกับผู้ใช้งาน เช่น การคลิกเพื่อดูข้อมูล, การเปลี่ยนชั้นข้อมูล (layers), และการใช้ custom icons หรือ popup ข้อมูล

R script ที่ใช้ในวีดีโอนี้ https://bit.ly/2YXUXGB

แนะนำให้หาความรู้เพิ่มเติม

1) การใช้โปรแกรม R: การติดตั้ง R และ RStudio บน Windows (Install R and RStudio on Windows) https://youtu.be/UaEtZ5XzVeE

🎯 วัตถุประสงค์ของ EP#03: Leaflet ขั้นประยุกต์

• แสดงความสามารถในการ สร้างแผนที่แบบโต้ตอบ (Interactive Web Map) ด้วยฟังก์ชันที่หลากหลาย
• เรียนรู้ การเชื่อมโยงข้อมูลภายนอก (เช่น CSV หรือ shapefile)
• การสร้าง Marker Cluster, Legend, Custom Popup, Custom Icons
• การแสดง หลายชั้นข้อมูล (Multi-layer control)

---

📥 ดาวน์โหลด R Script ตัวอย่าง

📄 R Script ที่ใช้ในวิดีโอ:
🔗 bit.ly/2YXUXGB

สามารถเปิดใน RStudio เพื่อศึกษาต่อเนื่องจากคลิปวีดีโอ

---

📌 ฟังก์ชันขั้นประยุกต์ที่สำคัญใน Leaflet (R)

1. addMarkers() พร้อม Popup

rCopyEditleaflet(data = mydata) %>%
  addTiles() %>%
  addMarkers(~longitude, ~latitude, popup = ~paste("ชื่อ:", name, "<br>ข้อมูล:", info))

2. addCircleMarkers() + Cluster

rCopyEditleaflet(data = mydata) %>%
  addTiles() %>%
  addCircleMarkers(
    ~longitude, ~latitude,
    radius = 6, color = "blue",
    popup = ~info,
    clusterOptions = markerClusterOptions()
  )

3. addPolygons() จาก shapefile

rCopyEditlibrary(sf)
districts <- st_read("districts.shp")

leaflet() %>%
  addTiles() %>%
  addPolygons(data = districts, fillColor = "green", weight = 1, popup = ~DISTRICT_NAME)

4. การเพิ่ม Legend และ Layer Control

rCopyEditleaflet() %>%
  addTiles(group = "Base Map") %>%
  addPolygons(data = districts, group = "ขอบเขตอำเภอ") %>%
  addMarkers(data = points, group = "จุดสำคัญ") %>%
  addLayersControl(
    overlayGroups = c("ขอบเขตอำเภอ", "จุดสำคัญ"),
    options = layersControlOptions(collapsed = FALSE)
  ) %>%
  addLegend("bottomright", colors = "blue", labels = "จุดตัวอย่าง", title = "คำอธิบาย")

---

📚 ความรู้พื้นฐานที่ควรเรียนรู้เพิ่มเติม

✅ การติดตั้ง R และ RStudio บน Windows

แนะนำสำหรับผู้เริ่มต้นใช้งาน R และ RStudio

✅ การเตรียม Spatial Data เช่น:

• ไฟล์ .csv (พร้อม latitude/longitude)
• ไฟล์ .shp (shapefile) ใช้ร่วมกับแพ็กเกจ sf
• ไฟล์ GeoJSON

---

🔍 แนวทางการประยุกต์

รูปแบบการใช้งาน	รายละเอียด
แสดงตำแหน่งโรงพยาบาล	เพิ่ม popup ข้อมูลติดต่อ
วิเคราะห์ข้อมูล PM2.5	แสดงผลแบบวงกลมตามค่า
สำรวจความเสียหายหลังภัยพิบัติ	Marker + แสดงภาพใน popup
พัฒนา WebGIS dashboard	ฝัง leaflet ลงใน R Shiny

---

💡 สรุป

Leaflet ใน R ไม่เพียงแค่แสดงแผนที่เท่านั้น แต่ยังสามารถสร้างประสบการณ์การเรียนรู้และใช้งานแบบ interactive สำหรับงานวิเคราะห์ภูมิศาสตร์ ไม่ว่าจะเป็นด้านสุขภาพ สิ่งแวดล้อม หรือผังเมือง ทั้งนี้ R ยังสามารถใช้ร่วมกับ Shiny หรือ htmlwidgets เพื่อนำเสนอแบบ web-based ได้อย่างสมบูรณ์