Doplňkové funkce

Interaktivní mapy s leaflet v R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Vyhledávání škol

ca_public <- ipeds %>%
    filter(sector_label == "Public", state == "CA")

ca_public  %>% 
    leaflet() %>% 
        addProviderTiles("Esri") %>% 
        addCircleMarkers(radius = 2, 
                         label = ~htmlEscape(name),
                         color = ~pal(sector_label),
                         group = "Public") %>%

    addSearchFeatures(targetGroups = 'Public', 
                      options = searchFeaturesOptions(zoom = 10))

# search for markers
 addSearchFeatures(
         targetGroups = 'Public')

addSearchFeatures() 1

addSearchFeatures(options =
 searchFeaturesOptions(zoom = 10),
 targetGroups = 'Public')

addSearchFeatures() 2

Seskupování škol

ipeds  %>% 
  leaflet() %>% 
      addTiles() %>% 
      addCircleMarkers(radius = 2, 
                       color = ~pal(sector_label),
                       clusterOptions = markerClusterOptions())

Seskupování markerů 1

Seskupování škol

Seskupování markerů 2

Pojďme procvičovat!

Interaktivní mapy s leaflet v R