Kom igångKom igång gratis

Kartera offentliga och privata högskolor

Vi kan lägga till privata högskolor på samma sätt som vi lade till offentliga. Med funktionen addLayersControl() och argumentet overlayGroups kan vi ge användarna möjlighet att visa offentliga och/eller privata högskolor. Argumentet overlayGroups tar en vektor av grupper som vi har definierat när vi skapade våra lager (dvs. offentliga och privata). Som en påminnelse – så här lägger vi till offentliga högskolor på kartan som ett lager:

# 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"))

Biblioteket htmltools, färgpaletten pal och kartan m3 med offentliga högskolor är redan inlästa.

Den här övningen är en del av kursen

Interaktiva kartor med leaflet i R

Visa kurs

Övningsinstruktioner

  • Filtrera ipeds-data för att skapa en dataram med enbart privata högskolor.
  • Lägg till privata högskolor i m3 som ett nytt lager.
  • Använd funktionen addLayersControl() med argumentet overlayGroups för att låta användarna växla mellan de offentliga och privata lagren.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# 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
Redigera och kör kod