Zacznij terazZacznij za darmo

Mapa wszystkich uczelni

Dodajmy kolejną warstwę i umieśćmy na mapie leaflet uczelnie komercyjne (for-profit), zapisanej w obiekcie m3.

Po wywołaniu print() na mapie m3 zawierającej uczelnie publiczne, prywatne i komercyjne jako osobne warstwy, spróbuj usunąć wszystkie trzy warstwy i dodać je z powrotem w innej kolejności.

Poszczególne sektory uczelni są dodawane do mapy jako warstwy w podanej przez ciebie kolejności (tzn. ostatni wybrany sektor znajdzie się na wierzchu).

Paleta kolorów pal oraz mapa m3 z uczelniami publicznymi i prywatnymi 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ą tylko uczelnie komercyjne, i przypisz ją do zmiennej profit.
  • Utwórz mapę leaflet z uczelniami publicznymi, prywatnymi i komercyjnymi.
  • Użyj funkcji addLayersControl() z argumentem overlayGroups, aby umożliwić użytkownikom przełączanie wszystkich trzech sektorów uczelni.
  • Wyśrodkuj mapę na środku USA i ustaw poziom przybliżenia na 4.

Interaktywne ćwiczenie praktyczne

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

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

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

# Center the map on the middle of the US with a zoom of 4
m4 <- m3 %>%
        ___(lat = 39.8282, lng = -98.5795, zoom = 4) 
        
m4
Edytuj i uruchom kod