底图组

在 R 中使用 leaflet 构建交互式地图

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

底图组与多种地图瓦片

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

底图组 1

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

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

底图组 2

探索 Esri 底图

底图组 3

叠加组与底图组

# initialize leaflet map
leaflet() %>%

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

叠加组与底图组

# 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"))

重磅揭示

包含底图组和叠加组的四年制学院

让我们来练习！

在 R 中使用 leaflet 构建交互式地图