Mapas en R

Lenguaje de programación R

R es un software libre para graficos, computación estadística y econometrica, que soporta tareas desde la forma mas simple, ya que nos permite dar instrucciones, usando código, a nuestros equipos de cómputo para que realicen tareas específicas https://www.r-project.org/.

Mapas en R

R, ofrece un conjunto de librerías que facilitan la creación y personalización de mapas interactivos y estáticos.

Libreria leaflet

Con leaflet, puedes agregar marcadores, poligonos, capas raster y otras anotaciones en el mapa. Además, es posible combinar ‘leaflet’ con otras librerías, como ‘shiny’, para crear aplicaciones web interactivas que muestren datos geoespaciales.

Proyecto

Este codigo en R crea un mapa interactivo utilizando “leaflet” y añade marcadores de calor y circulo que representa las diferentes provincias del departamento de Puno, en función de sus coordenadas geograficas.

Datos

En este proyecto se trabajara con la dataframe de las provincias del departamento de Puno el cual esta alojado en GitHub.

mapa1 <- read.table("https://raw.githubusercontent.com/Gretty-Paredes/Mapas-en-R/master/data/13-provincias.txt",header =TRUE,sep=",")
mapa1

Generando mapa interactivo

Iniciaremos creando un mapa de calor:

Editando colores y marcadores

Asigna colores a cada Provincia

# Colores y nombres de etiqueta
colores <- c('#a6cee3', '#1f78b4', '#b2df8a', '#33a02c', '#fb9a99', '#e31a1c',
             '#fdbf6f', '#ff7f00', '#cab2d6', '#6a3d9a', '#ffff99', '#b15928')
provin <- levels(as.factor(mapa1$Provincia))

# Cambiando color
paleta <- colorFactor(palette = colores, domain = provin)
leaflet() %>% 
  addTiles() %>% 
  addCircleMarkers(data =mapa1, lat = ~Latitud, lng = ~Longitud,
                   color = ~paleta(Provincia), fill = 1)%>%
  addMiniMap()%>%
  addResetMapButton()

Añadiendo popup

Muestra un mensaje emergente cuando se hace clic

leaflet() %>% 
  addTiles() %>% 
  addCircleMarkers(data =mapa1, lat = ~Latitud, lng = ~Longitud,
                   color = ~paleta(Provincia), fill = 1,popup =~Provincia, label = ~Capital,group = "Provincias")%>%
  addMiniMap()%>%
  addResetMapButton()

Añadiendo leyenda

#Leyenda
m <- leaflet() %>% 
  addTiles() %>% 
  addCircleMarkers(data =mapa1, lat = ~Latitud, lng =~Longitud,
                   color = ~paleta(Provincia), fill = 1,popup =paste(sep="<br>","<br><strong>Provincia:</strong>",mapa1$Provincia,
                                                                     "<br><strong>Capital:</strong>",mapa1$Capital,"<br><strong>Distritos:</strong>",mapa1$Distrito) )%>%
  addMiniMap()%>%
  addResetMapButton()
m <- m %>% 
  addLegend(data = mapa1, position =  "bottomleft", pal = paleta,
            values = ~Provincia, title = "Provincias", opacity = 1,
            group = "Leyenda")
m