LoslegenKostenlos starten

Öffentliche und private Hochschulen abbilden

Private Hochschulen können wir genauso hinzufügen wie die öffentlichen. Mit der Funktion addLayersControl() und dem Argument overlayGroups gibst du Nutzerinnen und Nutzern anschließend die Möglichkeit, öffentliche und/oder private Hochschulen anzuzeigen. Das Argument overlayGroups erwartet einen Vektor der Gruppen, die wir beim Erstellen unserer Layer definiert haben (also public und private). Zur Erinnerung: So fügen wir öffentliche Hochschulen als Layer zu unserer Karte hinzu:

# Data Frame namens public mit nur öffentlichen Hochschulen erstellen
public <- filter(ipeds, sector_label == "Public")  

# Öffentliche Hochschulen als Layer hinzufügen und Karte als `m3` speichern
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

Die Bibliothek htmltools, die Farbpalette pal und die Karte m3 mit öffentlichen Hochschulen wurden für dich geladen.

Diese Übung ist Teil des Kurses

<Kurs>Interaktive Karten mit leaflet in R</Kurs>
Kurs ansehen

Übungsanweisungen

  • Filtere die ipeds-Daten, um einen Data Frame nur mit privaten Hochschulen zu erstellen.
  • Füge m3 die privaten Hochschulen als neuen Layer hinzu.
  • Verwende die Funktion addLayersControl() und das Argument overlayGroups, damit Nutzerinnen und Nutzer zwischen den öffentlichen und privaten Layern umschalten können.

Interaktive praktische Übung

Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.

# 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
Code bearbeiten und ausführen