Pieces of Flair

Interaktiva kartor med leaflet i R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Söka efter högskolor

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

Klustra högskolor

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

Klustra markörer 1

Klustra högskolor

Klustra markörer 2

Nu kör vi en övning!

Interaktiva kartor med leaflet i R