Uso de Mapas interactivos con Leaflet

Uso de Mapas interactivos con Leaflet

Listado bibliotecas a usar:

readr

Esta biblioteca permite el uso y manejo de archivos de tipo csv y txt

htmlwidgets

Esta biblioteca se utiliza para generar el documento html del mapa y los marcadores aplicados.

Leaflet

Leaflet es una biblioteca JavaScript de código abierto que se utiliza para crear aplicaciones de mapas web. es compatible con la mayoría de las plataformas móviles y de escritorio, y admite HTML5 y CSS3.

--------------------------------------------------------------------------------------------

Caso práctico de Leaflet

Leaflet - Contenedor

mapabase_001 <- leaflet()
mapabase_001 

MAPA BASE - OpenStreetMap - GRIDS (Rejillas) - HTML

mapabase_001 <- leaflet() %>% 
  addTiles()
mapabase_001

LATITUD - LONGITUD - MARCADOR - SETVIEW - POPUP - HTML

Generamos marcadores utilizando la latitud y longitud de cada sitio que deseamos incluir:

Palacio de Gobierno: 19.4324501,-99.1319000

Catedral: 19.4324501,-99.1363428

mapa_001 <- leaflet() %>% 
  addTiles() %>% 
  setView(lat =19.4324501 ,lng =-99.1337679 ,zoom = 16) %>% 
  addMarkers(lat=19.4324501,lng=-99.1319000,popup = "<b>PALACIO DE GOBIERNO</b>")
mapa_001 

MULTIPLES MARCADORES - LATITUD - LONGITUD - MARCADORES - SETVIEW - POPUP - HTML

IMPORTAR REGISTROS DESDE ARCHIVOS TXT - CSV

Primero cargamos archivo que contiene latitud, longitud y el color a aplicar en marcador de ruta

lat_lng_lugar_mx <- read_csv("C:/jupyter_src/Mapas_R/lat_lng_lugar_mx.txt", show_col_types = FALSE)
View(lat_lng_lugar_mx)

Relacionar csv con el mapa

Ahora aplicamos esos campos del archivo para los marcadores:

mapa_003 <- leaflet(lat_lng_lugar_mx) %>% 
  addTiles() %>%
  setView(lat =19.4324501 ,lng =-99.1337679 ,zoom = 16) %>% 
  addMarkers(lat =~latitud ,lng =~longitud ,popup =~lugar )
mapa_003

Generar archivo de mapa interactivo en formato html

Finalmente generamos el archivo html de mapa:

htmlwidgets::saveWidget(mapa_003,"C:/jupyter_src/Mapas_R/resultado/mapa_003.html")

AÑADIR MULTIPLES MARCADORES - DATA FRAMES

Ahora utilizamos un dataframe como fuente para incluir los multiples marcadores en el mapa:

cent_hist_001 <- data.frame(lugar=c("<b>PALACIO DE GOBIERNO</b>","<b>MUNICIPALIDAD DE CD MEX</b>","<b>CATEDRAL DE CD MEX</b>"),
                            latitud=c(19.4324501,19.4316534,19.4340968),
                            longitud=c(-99.1319000,-99.134148,-99.1329472))


mapa_004 <- leaflet(data =cent_hist_001 ) %>% 
  addTiles() %>% 
  setView(lat =19.4324501 ,lng =-99.1337679 ,zoom = 16) %>% 
  addMarkers(lat =~latitud ,lng =~longitud ,popup =~lugar )
mapa_004

htmlwidgets::saveWidget(mapa_004,"C:/jupyter_src/Mapas_R/resultado/mapa_004.html")

---