Mulai sekarangMulai gratis

Opsi addPolygon()

Sejauh ini kita menggunakan tampilan bawaan untuk addPolygons(). Ada beberapa cara lain untuk menyesuaikan poligon.

Argumen addPolygons() yang akan kita fokuskan adalah:

  • weight: ketebalan garis batas dalam piksel
  • color: warna poligon
  • label: informasi yang muncul saat diarahkan kursor (hover)
  • highlightOptions: opsi untuk menyorot poligon saat diarahkan kursor
addPolygons(weight = 2,
           color = "red",
           label = ~paste0("Total Income: ", dollar(income)),
           highlight = highlightOptions(weight = 10,
                                       color = "blue",
                                       bringToFront = TRUE))

high_inc SpatialPolygonsDataFrame yang Anda buat pada latihan sebelumnya telah dimuat untuk Anda.

Latihan ini merupakan bagian dari kursus

Peta Interaktif dengan leaflet di R

Lihat Kursus

Instruksi latihan

  • Gunakan argumen addPolygons() untuk memetakan kode pos berpendapatan tinggi di NC dengan:
    • Ketebalan batas 1 piksel,
    • Poligon yang diwarnai dengan palet nc_pal dan disorot saat diarahkan kursor, serta
    • Label yang menampilkan kata "Mean Income:" diikuti oleh pendapatan rata-rata kode pos tersebut.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# 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))
Edit dan Jalankan Kode