Grupuri de bază

Hărți interactive cu leaflet în R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Grupuri de bază și straturi de hartă multiple

leaflet() %>% 
  addTiles(group = "OSM") %>% 
  addProviderTiles("CartoDB", group = "Carto") %>% 
  addProviderTiles("Esri", group = "Esri")

Grupuri de bază 1

leaflet() %>% 
  addTiles(group = "OSM") %>% 
  addProviderTiles("CartoDB", group = "Carto") %>% 
  addProviderTiles("Esri", group = "Esri")  %>% 

  addLayersControl(baseGroups = c("OSM", "Carto", "Esri"),
                   position = "topleft")

Grupuri de bază 2

Explorarea hărților de bază Esri

Grupuri de bază 3

Grupuri suprapuse și de bază

# initialize leaflet map
leaflet() %>%

# add basemaps with groups
  addTiles(group = "OSM") %>% 
  addProviderTiles("CartoDB", group = "Carto") %>% 
  addProviderTiles("Esri", group = "Esri") %>%

Grupuri suprapuse și de bază

# add marker layer for each sector with corresponding group name
addCircleMarkers(data = public, radius = 2, 
                 label = ~htmlEscape(name),
                 color = ~pal(sector_label), group = "Public") %>% 
addCircleMarkers(data = private, radius = 2, 
                 label = ~htmlEscape(name),
                 color = ~pal(sector_label), group = "Private") %>% 
addCircleMarkers(data = profit, radius = 2, 
                 label = ~htmlEscape(name),
                 color = ~pal(sector_label), group = "For-Profit") %>% 

# add layer controls for base and overlay groups
addLayersControl(baseGroups = c("OSM", "Carto", "Esri"), 
                 overlayGroups = c("Public", "Private", 
                                     "For-Profit"))

Rezultatul final

Toate colegiile cu patru ani cu grupuri de bază și suprapuse

Să exersăm!

Hărți interactive cu leaflet în R