Pieces of Flair

Interactive Maps with leaflet in R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

The College Search

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

Clustering Colleges

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

Clustering markers 1

Clustering Colleges

Clustering markers 2

Let's practice!

Interactive Maps with leaflet in R