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

ตัวเลือกของ addPolygons()

ที่ผ่านมาเราใช้รูปแบบเริ่มต้นของ addPolygons() แต่ยังมีวิธีปรับแต่งรูปหลายเหลี่ยมได้อีกหลายแบบ

อาร์กิวเมนต์ของ addPolygons() ที่เราจะโฟกัสมีดังนี้:

  • weight: ความหนาของเส้นขอบในหน่วยพิกเซล
  • color: สีของรูปหลายเหลี่ยม
  • label: ข้อมูลที่แสดงเมื่อวางเมาส์เหนือ
  • highlightOptions: ตัวเลือกสำหรับไฮไลต์รูปหลายเหลี่ยมเมื่อวางเมาส์เหนือ
addPolygons(weight = 2,
           color = "red",
           label = ~paste0("Total Income: ", dollar(income)),
           highlight = highlightOptions(weight = 10,
                                       color = "blue",
                                       bringToFront = TRUE))

โหลด SpatialPolygonsDataFrame ชื่อ high_inc ที่คุณสร้างในแบบฝึกหัดก่อนหน้าไว้ให้แล้ว

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

Interactive Maps with leaflet in R

ดูคอร์ส

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

  • ใช้อาร์กิวเมนต์ของ addPolygons() เพื่อแสดงรหัสไปรษณีย์รายได้สูงใน NC โดยกำหนดให้:
    • ความหนาของเส้นขอบเท่ากับ 1 พิกเซล
    • รูปหลายเหลี่ยมใช้สีจาก palette nc_pal และไฮไลต์เมื่อวางเมาส์เหนือ
    • Label แสดงคำว่า "Mean Income:" ตามด้วยค่าเฉลี่ยรายได้ของรหัสไปรษณีย์นั้น

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

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

# create color palette with colorNumeric()
nc_pal <- colorNumeric("YlGn", domain = high_inc@data$mean_income)

high_inc %>%
  leaflet() %>%
  addTiles() %>%
  # set boundary thickness to 1 and color polygons
  addPolygons(___ = ___, ___ = ~nc_pal(mean_income),
              # add labels that display mean income
              label = ___("Mean Income: ", dollar(mean_income)),
              # highlight polygons on hover
              ___ = highlightOptions(weight = 5, color = "white",
              bringToFront = TRUE))
แก้ไขและรันโค้ด