Este documento R Markdown crea un mapa interactivo usando el paquete leaflet como parte del curso Developing Data Products en la plataforma Coursera.
# Cargar los datos del CSV
locations <- read.csv("locations.csv")
# Crear el mapa de leaflet - VERSIÓN SIMPLE
map <- leaflet(data = locations) %>%
# Agregar tiles por defecto de OpenStreetMap
addTiles() %>%
# Establecer vista inicial centrada en México
setView(lng = -100.5, lat = 21, zoom = 6) %>%
# Agregar marcadores circulares
addCircleMarkers(
lng = ~lng, lat = ~lat,
radius = ~sqrt(population) / 1000,
popup = ~paste("<b>", city, "</b><br/>",
"Población:", population, "<br/>",
"Región:", region, "<br/>",
"Tipo:", type),
color = "blue",
fillColor = "#0066cc",
fillOpacity = 0.7,
weight = 2,
stroke = TRUE
)
# Mostrar el mapa
map
# Mostrar información sobre los datos cargados
head(locations)
## city lng lat population region type
## 1 Santiago de Querétaro -100.39 20.59 2100000 Querétaro Capital
## 2 Mexico City -99.13 19.43 9200000 CDMX Capital
## 3 Guadalajara -103.35 20.66 5300000 Jalisco Major City
## 4 Monterrey -100.32 25.69 1800000 Nuevo León Major City
## 5 Guanajuato -101.25 21.02 580000 Guanajuato Colonial City
## 6 San Miguel de Allende -101.75 20.91 87000 Guanajuato Tourist Destination
cat("\nTotal de ciudades:", nrow(locations))
##
## Total de ciudades: 12
cat("\nRégiones representadas:", length(unique(locations$region)))
##
## Régiones representadas: 10
knitr::kable(locations, caption = "Ciudades incluidas en el mapa")
| city | lng | lat | population | region | type |
|---|---|---|---|---|---|
| Santiago de Querétaro | -100.39 | 20.59 | 2100000 | Querétaro | Capital |
| Mexico City | -99.13 | 19.43 | 9200000 | CDMX | Capital |
| Guadalajara | -103.35 | 20.66 | 5300000 | Jalisco | Major City |
| Monterrey | -100.32 | 25.69 | 1800000 | Nuevo León | Major City |
| Guanajuato | -101.25 | 21.02 | 580000 | Guanajuato | Colonial City |
| San Miguel de Allende | -101.75 | 20.91 | 87000 | Guanajuato | Tourist Destination |
| Puebla | -98.20 | 19.04 | 1624000 | Puebla | Colonial City |
| Veracruz | -96.13 | 19.20 | 428000 | Veracruz | Coastal City |
| Oaxaca | -96.72 | 17.06 | 264000 | Oaxaca | Cultural Hub |
| Mérida | -89.62 | 20.97 | 921000 | Yucatán | Cultural City |
| Cancún | -87.07 | 21.16 | 840000 | Quintana Roo | Resort City |
| Puerto Vallarta | -105.25 | 20.61 | 295000 | Jalisco | Coastal Resort |
Mapa interactivo creado con Leaflet y R By Mtro. José Luis Sánchez