Objetivo: Visualizar con una marca puntos en el mapa de Durango, Dgo.

Las librerías que deben descargarse y utilizrse

# install.packages("leaflet") # Solo se instalan una vez al principio
# install.packages("knitr")
# install.packages("dplyr")

library(leaflet) # Se cargan las librerías de los paquetes instalados
library(knitr)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Mostrando Algunos ejemplos de la ayuda

# Un simple mapa
m <- leaflet() %>% addTiles()
m
# Establecemos fronteras
m %>% fitBounds(0, 40, 10, 50)
m
# Nos cambiamos a un punto más específico
m <- m %>% setView(-93.65, 42.0285, zoom = 17)
m
# popup una msje a maera de identificador
m %>% addPopups(-93.65, 42.0285, "Here is the <b>Department of Statistics</b>, ISU")
rand_lng <- function(n = 10) rnorm(n, -93.65, .01)
rand_lat <- function(n = 10) rnorm(n, 42.0285, .01)


# use automatic bounds derived from lng/lat data
m <- m %>% clearBounds()

# popup
m %>% addPopups(rand_lng(), rand_lat(), "Random popups")
# Una marca
m %>% addMarkers(rand_lng(), rand_lat())
m %>% addMarkers(
  rand_lng(), rand_lat(), popup = paste("A random letter", sample(LETTERS, 10))
)

Mostrando mapa de Durango

map<-leaflet() %>%
  addTiles() %>%
  addMarkers(lat=24.011001,lng= -104.707236,popup="Fracc. Colinas del Saltito") %>%
  addMarkers(lat=24.016103,lng=-104.689459,popup="Sahuatoba. Estadio Beisbolo Fco. Villa")  %>%  
  addMarkers(lat=24.022176,lng=-104.684436,popup="Mirador Remedios") %>%
  addMarkers(lat=24.031446,lng=-104.680752,popup="Col Silvestre Dorador (Obrera)") %>%
  addMarkers(lat=24.024830,lng=-104.669274,popup="Centro Durango") %>%
  addMarkers(lat=24.031106,lng=-104.646727,popup="Fachada Instituto Tecnológico de Durango") %>%
  addMarkers(lat=24.063964,lng=-104.604401,popup="Cd Industrial, Calle Cobalto")
map