Groupes de superposition

Cartes interactives avec leaflet en R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Regrouper les collèges par secteur

m <- ca_colleges %>% 
  leaflet() %>% 
  addProviderTiles("CartoDB") 
m %>% 
  addCircleMarkers(
              radius = 2,
              label = ~name)

Couches des collèges CA 1

ca_public <- ipeds  %>% 
  filter(sector == "Public", 
         state == "CA") 
m %>% 
  addCircleMarkers(
        data = ca_public,
        group = "Public")

Couches des collèges CA 2

m %>% 
 addCircleMarkers(
   data = ca_public,
   color = ~pal(sector_label),
   group = "Public")  %>% 

addCircleMarkers(
   data = ca_private,
   color = ~pal(sector_label),
   group = "Private")  %>%

addCircleMarkers(
   data = ca_profit,
   color = ~pal(sector_label),
   group = "For-Profit")

Couches des collèges CA 1

m %>% 
 addCircleMarkers(
   data = ca_public,
   color = ~pal(sector_label),
   group = "Public")  %>% 

addCircleMarkers(
   data = ca_private,
   color = ~pal(sector_label),
   group = "Private")  %>% 

addCircleMarkers(
   data = ca_profit,
   color = ~pal(sector_label),
   group = "For-Profit")  %>% 

addLayersControl(
  overlayGroups = c("Public", 
                    "Private", 
                    "For-Profit"))

Couches des collèges CA 3

Notre objectif

Toutes les couches des collèges

Passons à la pratique !

Cartes interactives avec leaflet en R