CommencerCommencez gratuitement

Cartographier les établissements publics et privés

Nous pouvons ajouter les établissements privés exactement comme nous avons ajouté les établissements publics. Ensuite, en utilisant la fonction addLayersControl() avec l'argument overlayGroups, nous pouvons permettre aux utilisateurs 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 (c'est‑à‑dire public et privé). Pour mémoire, voici comment nous pouvons ajouter les établissements publics à notre carte en tant que couche :

# Créer une table de données appelée public avec uniquement 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 contenant les établissements publics ont été chargées pour vous.

Cet exercice fait partie du cours

<cours>Cartes interactives avec leaflet en R</cours>
Voir le cours

Instructions de l’exercice

  • Filtrez les données ipeds pour créer une table 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/désactiver les couches public et privé.

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