Zacznij terazZacznij za darmo

Mapowanie uczelni publicznych

Każdy sektor możemy dodać do mapy jako osobną warstwę, dzięki czemu użytkownicy będą mogli wybierać, które sektory są wyświetlane. W tym celu skorzystamy z nowego argumentu funkcji addCircleMarkers() – group.

leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, 
                         label = ~htmlEscape(name), 
                         group = "Public")

Do naszej mapy dodamy jeszcze jedną funkcję z biblioteki htmltools. Owijając etykiety funkcją htmlEscape(), zabezpieczamy znaki, które mogłyby zostać zinterpretowane jako HTML. Dzięki temu nazwy uczelni nie będą wyświetlane z niezamierzonym formatowaniem.

Paleta kolorów pal utworzona w rozdziale 2 została już wczytana.

To ćwiczenie jest częścią kursu

Interaktywne mapy z leaflet w R

Zobacz kurs

Instrukcje do ćwiczenia

  • Wczytaj pakiet htmltools.
  • Przefiltruj dane ipeds, aby utworzyć ramkę danych zawierającą tylko uczelnie publiczne.
  • Utwórz mapę leaflet z uczelniami publicznymi.
  • Dodaj argument group do funkcji addCircleMarkers().

Interaktywne ćwiczenie praktyczne

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

# Load the htmltools package
___

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

# Create a leaflet map of public colleges called m3 
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = ___, radius = 2, label = ~htmlEscape(name),
                         color = ~pal(sector_label), ___ = "Public")

m3
Edytuj i uruchom kod