Mulai sekarangMulai gratis

Memetakan Kampus Negeri dan Swasta

Kita dapat menambahkan kampus swasta dengan cara yang sama seperti saat menambahkan kampus negeri. Lalu, dengan menggunakan fungsi addLayersControl() dan argumen overlayGroups, kita dapat memberi pengguna kemampuan untuk menampilkan kampus negeri dan/atau swasta. Argumen overlayGroups menerima sebuah vektor berisi grup yang telah kita definisikan saat membuat layer (mis., negeri dan swasta). Sebagai pengingat, berikut cara menambahkan kampus negeri ke peta sebagai sebuah layer:

# Buat data frame bernama public yang hanya berisi kampus negeri
public <- filter(ipeds, sector_label == "Public")  

# Tambahkan kampus negeri sebagai layer dan simpan peta sebagai `m3`
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

Library htmltools, palet warna pal, dan peta m3 dengan kampus negeri telah dimuat untuk Anda.

Latihan ini merupakan bagian dari kursus

Peta Interaktif dengan leaflet di R

Lihat Kursus

Instruksi latihan

  • Saring data ipeds untuk membuat data frame yang hanya berisi kampus swasta.
  • Tambahkan kampus swasta ke m3 sebagai layer baru.
  • Gunakan fungsi addLayersControl() dan argumen overlayGroups agar pengguna dapat mengaktifkan/nonaktifkan layer kampus negeri dan swasta.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

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

# Add private colleges to `m3` as a new layer
m3 <- m3 %>% 
        ___(data = private, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), group = "Private") %>% 
        ___(___ = c("Public", "Private"))

m3
Edit dan Jalankan Kode