Отображение штаб-квартиры DataCamp

Интерактивные карты с leaflet в R

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Нанесение точки на карту

# add marker layer to map
leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng = -73.98575, 
                lat = 40.74856)

Пример с одним маркером

Передача данных маркера
- Числовые столбцы фрейма данных
- Числовые векторы
Значения по умолчанию addMarkers()
- Центрирование на одной точке
- Масштаб подбирается по всем точкам

Нанесение нескольких точек

dc_hq <- 
     tibble(
         hq  = c("DataCamp - NYC", "DataCamp - Belgium"),
         lon = c(-73.98575, 4.717863),
         lat = c(40.74856, 50.881363))
leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng = dc_hq$lon, lat = dc_hq$lat)

Пример с несколькими маркерами

Нанесение нескольких точек II

# When piping a data frame into the leaflet function, R will search 
# for columns named lat/latitude and lon/lng/long/longitude  
dc_hq  %>% 
     leaflet() %>% 
     addTiles() %>% 
     addMarkers() 
Assuming 'lon' and 'lat' are longitude and latitude, respectively

Пример с несколькими маркерами

Всплывающие окна

leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng = dc_hq$lon, lat = dc_hq$lat, 
               popup = dc_hq$hq)

Пример маркеров с всплывающими окнами

Всплывающие окна II

leaflet() %>% 
     addTiles() %>% 
     addPopups(lng = dc_hq$lon, lat = dc_hq$lat,
               popup = dc_hq$hq)

Пример всплывающих окон

Сохранение карт leaflet как объектов

m <- leaflet() %>%
     addTiles()  %>% 
     setView(lng = dc_hq$lon[1], 
             lat = dc_hq$lat[1], 
             zoom = 12)

Сохранение карт как объектов

# %>% leaflet objects to functions 
# to add or edit layers
m %>% addMarkers(lng = dc_hq$lon, 
                 lat = dc_hq$lat, 
                 popup = dc_hq$hq)

Добавление слоёв

Давайте потренируемся!

Интерактивные карты с leaflet в R