CommencezCommencez gratuitement

Cartographier les établissements publics et privés

Nous pouvons ajouter les établissements privés exactement de la même façon que nous avons ajouté les établissements publics. Ensuite, en utilisant la fonction addLayersControl() avec l'argument overlayGroups, nous pouvons offrir aux utilisateurs la possibilité d'afficher les établissements publics et/ou privés. L'argument overlayGroups prend un vecteur de groupes que nous avons définis lors de la création de nos couches (p. ex., public et privé). Pour rappel, voici comment nous pouvons ajouter les établissements publics à notre carte comme couche :

# Créer la trame de données public avec seulement les établissements publics
public <- filter(ipeds, sector_label == "Public")  

# Ajouter les établissements publics comme couche et enregistrer la carte sous `m3`
m3 <- leaflet() %>% 
        addProviderTiles("CartoDB") %>% 
        addCircleMarkers(data = public, radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>% 
        addLayersControl(overlayGroups = c("Public"))

La bibliothèque htmltools, la palette de couleurs pal et la carte m3 avec les établissements publics ont été chargées pour vous.

Cette activité fait partie du cours

Cartes interactives avec leaflet en R

Voir le cours

Instructions de l’exercice

  • Filtrez les données ipeds pour créer une trame de données ne contenant que les établissements privés.
  • Ajoutez les établissements privés à m3 comme nouvelle couche.
  • Utilisez la fonction addLayersControl() et l'argument overlayGroups pour permettre aux utilisateurs d'activer ou désactiver les couches publiques et privées.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

# 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
Modifier et exécuter le code