Zacznij terazZacznij za darmo

Mapa uczelni publicznych i prywatnych

Uczelnie prywatne dodamy do mapy dokładnie tak samo, jak dodaliśmy publiczne. Następnie, używając funkcji addLayersControl() z argumentem overlayGroups, damy użytkownikom możliwość wyświetlania uczelni publicznych i/lub prywatnych. Argument overlayGroups przyjmuje wektor grup zdefiniowanych podczas tworzenia warstw (czyli: publiczne i prywatne). Dla przypomnienia – oto jak dodać uczelnie publiczne do mapy jako warstwę:

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

# Add public colleges as a layer and save map as `m3`
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

Biblioteka htmltools, paleta kolorów pal oraz mapa m3 z uczelniami publicznymi są już wczytane.

To ćwiczenie jest częścią kursu

Interaktywne mapy z leaflet w R

Zobacz kurs

Instrukcje do ćwiczenia

  • Przefiltruj dane ipeds, aby utworzyć ramkę danych zawierającą wyłącznie uczelnie prywatne.
  • Dodaj uczelnie prywatne do m3 jako nową warstwę.
  • Użyj funkcji addLayersControl() z argumentem overlayGroups, aby umożliwić użytkownikom przełączanie warstw z uczelniami publicznymi i prywatnymi.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# 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
Edytuj i uruchom kod