The leaflet . e x tras Package IN TE R AC TIVE MAP S W ITH L E - - PowerPoint PPT Presentation

▶
the leaflet e x tras package
SMART_READER_LITE
LIVE PREVIEW

The leaflet . e x tras Package IN TE R AC TIVE MAP S W ITH L E - - PowerPoint PPT Presentation

May 23, 2023 126 likes •412 views

The leaflet . e x tras Package IN TE R AC TIVE MAP S W ITH L E AFL E T IN R Rich Majer u s Assistant Vice President , Colb y College The leaflet . e x tras Package We w ill foc u s on three e x tras : addSearchOSM() - make map searchable

slide-1
SLIDE 1

The leaflet.extras Package

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R

Rich Majerus

Assistant Vice President, Colby College

slide-2
SLIDE 2

INTERACTIVE MAPS WITH LEAFLET IN R

The leaflet.extras Package

We will focus on three extras:

addSearchOSM() - make map searchable addReverseSearchOSM() - geocode with a mouse click addResetMapButton() - reset map view

slide-3
SLIDE 3

INTERACTIVE MAPS WITH LEAFLET IN R

addSearchOSM()

leaflet() %>% addTiles() %>% addSearchOSM()

slide-4
SLIDE 4

INTERACTIVE MAPS WITH LEAFLET IN R

Find the Twine

Image By TigerPaw2154, Wikipedia - Public Domain

slide-5
SLIDE 5

INTERACTIVE MAPS WITH LEAFLET IN R

addReverseSearchOSM()

leaflet() %>% addTiles() %>% addSearchOSM() %>% addReverseSearchOSM()

slide-6
SLIDE 6

INTERACTIVE MAPS WITH LEAFLET IN R

addResetMapButton()

leaflet() %>% addTiles() %>% addSearchOSM() %>% addReverseSearchOSM() %>% addResetMapButton()

slide-7
SLIDE 7

Let's practice!

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R

slide-8
SLIDE 8

Overlay Groups

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R

Rich Majerus

Assistant Vice President, Colby College

slide-9
SLIDE 9

INTERACTIVE MAPS WITH LEAFLET IN R

Grouping Colleges by Sector

m <- ca_colleges %>% leaflet() %>% addProviderTiles("CartoDB") m %>% addCircleMarkers( radius = 2, label = ~name) ca_public <- ipeds %>% filter(sector == "Public", state == "CA") m %>% addCircleMarkers( data = ca_public, group = "Public")

slide-10
SLIDE 10

INTERACTIVE MAPS WITH LEAFLET IN R

m %>% addCircleMarkers( data = ca_public, color = ~pal(sector_label), group = "Public") %>% addCircleMarkers( data = ca_private, color = ~pal(sector_label), group = "Private") %>% addCircleMarkers( data = ca_profit, color = ~pal(sector_label), group = "For-Profit")

slide-11
SLIDE 11

INTERACTIVE MAPS WITH LEAFLET IN R

m %>% addCircleMarkers( data = ca_public, color = ~pal(sector_label), group = "Public") %>% addCircleMarkers( data = ca_private, color = ~pal(sector_label), group = "Private") %>% addCircleMarkers( data = ca_profit, color = ~pal(sector_label), group = "For-Profit") %>% addLayersControl(

  • verlayGroups = c("Public",

"Private", "For-Profit"

slide-12
SLIDE 12

INTERACTIVE MAPS WITH LEAFLET IN R

What We are Working Toward

slide-13
SLIDE 13

Let's practice!

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R

slide-14
SLIDE 14

Base Groups

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R

Rich Majerus

Assistant Vice President, Colby College

slide-15
SLIDE 15

INTERACTIVE MAPS WITH LEAFLET IN R

Base Groups and Multiple Map Tiles

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

slide-16
SLIDE 16

INTERACTIVE MAPS WITH LEAFLET IN R

leaflet() %>% addTiles(group = "OSM") %>% addProviderTiles("CartoDB", group = "Carto") %>% addProviderTiles("Esri", group = "Esri") %>% addLayersControl(baseGroups = c("OSM", "Carto", "Esri"), position = "topleft")

slide-17
SLIDE 17

INTERACTIVE MAPS WITH LEAFLET IN R

Exploring Esri Base Maps

slide-18
SLIDE 18

INTERACTIVE MAPS WITH LEAFLET IN R

Overlay and Base Groups

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

slide-19
SLIDE 19

INTERACTIVE MAPS WITH LEAFLET IN R

Overlay and Base Groups

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

  • verlayGroups = c("Public", "Private",

"For-Profit"))

slide-20
SLIDE 20

INTERACTIVE MAPS WITH LEAFLET IN R

The Big Reveal

slide-21
SLIDE 21

Let's practice!

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R

slide-22
SLIDE 22

Pieces of Flair

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R

Rich Majerus

Assistant Vice President, Colby College

slide-23
SLIDE 23

INTERACTIVE MAPS WITH LEAFLET IN R

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',

  • ptions = searchFeaturesOptions(zoom = 10))
slide-24
SLIDE 24

INTERACTIVE MAPS WITH LEAFLET IN R

# search for markers addSearchFeatures( targetGroups = 'Public') addSearchFeatures(options = searchFeaturesOptions(zoom = 10), targetGroups = 'Public')

slide-25
SLIDE 25

INTERACTIVE MAPS WITH LEAFLET IN R

Clustering Colleges

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

slide-26
SLIDE 26

INTERACTIVE MAPS WITH LEAFLET IN R

Clustering Colleges

slide-27
SLIDE 27

Let's practice!

IN TE R AC TIVE MAP S W ITH L E AFL E T IN R