Grupuri de suprapunere

Hărți interactive cu leaflet în R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Gruparea colegiilor pe sector

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

Straturi colegii CA 1

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

Straturi colegii 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")

Straturi colegii 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"))

Straturi colegii CA 3

Obiectivul urmărit

Toate straturile colegiilor

Să exersăm!

Hărți interactive cu leaflet în R