En esta ocasión, vamos a hacer un mapa interactivo Leaflet de las Unidades Académicas del Instituto Politécnico Nacional de México

Pasos a seguir

Cargar librerías necesarias

library(sf) # Manejo de archivos vectoriales mediante Sf
library(leaflet) # Mapas interactivos con leaflet

Incorporación del archivo vectorial

UA <- read_sf('Escuelas_IPN.shp') # Se carga el archivo vectorial

Revisemos que tiene este archivo:

UA

Activar el mapa interactivo

ipn <- leaflet()

Adicionar Open Street Maps

ipn <- addTiles(ipn)

Se establece la vista inicial del mapa en la Dirección General del IPN

ipn <- setView(ipn, lng= -99.139657, lat = 19.507162, zoom = 15) %>% # Operador de tuberías
  addMarkers(lng= -99.139657, lat = 19.507162, popup="Dirección General del IPN") %>%
  addCircles(data= UA, lat = ~y, lng = ~x,    ##### Se incorporan los datos vectoriales al mapa interactivo
  color = "#952F57", 
  fillOpacity = 0.8,
  radius=40,
  popup = as.character(UA$Nivel), #### El popup se activa al hacer click en el mapa 
  label = as.character(UA$Nombre)    ##### La etiqueta se activa al pasar el mouse por encima del punto.
  )

Ahora, veamos nuestro mapa:

ipn