3.1 Precipitación.

Las precipitaciones en exceso pueden ser un factor detonante de inundaciones; pueden venir acompañadas de granizo o generar escurrimientos que arrastren material aguas abajo, provocando daños al patrimonio público y particular. También pueden modificar la mecánica del suelo de las laderas y provocar derrumbes y deslaves. Para visualizar el peligro por precipitaciones intensas, el Atlas de riesgo de la Ciudad de México desarrolló una metodología para identificar que zonas a nivel AGEB presentan mayor peligro ante eventos de precipitación extraordinarios.

##########################
# MAPA 1 - PRECIPITACION #
##########################
label = paste0("<b style = 'color: green;'>AGEB: ", mapaFactor$CVEGEO, "</b>", "<br>",  mapaFactor$ALCALDIA)

paleta <- colorFactor("Blues", mapaFactor$PRECIPITAC, reverse = T)
popup <- paste0(mapaFactor$PRECIPITAC)

#18.980224, -99.507504
#19.563719, -98.722426

(map <- leaflet(mapaFactor, options = leafletOptions(zoomControl = FALSE, minZoom = 10)) %>%    #
   addProviderTiles("CartoDB.Positron") %>% 
   setMaxBounds(lng1 = -99.507504, lat1 = 18.980224, lng2 = -98.722426, lat2 = 19.60) %>% 
   addPolygons(highlightOptions = highlightOptions(color = "white"),
               color = "#444444", 
               weight = 0.2, 
               smoothFactor = 0.5, 
               opacity = 1, 
               popup = popup,
               label = lapply(label, htmltools::HTML), 
               fillOpacity = 0.8, 
               fillColor = ~paleta(mapaFactor$PRECIPITAC) ) %>%    #
   addPolygons(data = mapa_cdmx, 
               color = "#444444",
               weight = 4, 
               opacity = 1,
               fill = F
               ) %>% 
  addPolygons(data = mapa_municipios, 
              color = "#444444",
              weight = 2, 
              opacity = 1,
              fill = F
              ) %>% 
   #addScaleBar(position = "bottomright") %>%   
   addLegend(position = "bottomright", 
             pal = paleta, 
             values = mapaFactor$PRECIPITAC,     #
             title = "<div a style = 'color:red;'>Peligro:</div>Precipitacion", #
             opacity = 1,
             labFormat = labelFormat(suffix = " ")) %>%       #
   norte(ancho = 40, posicion = "topright") %>% 
    leaflet.extras::suspendScroll(wakeMessage = "Haga click o mantenga el cursor sobre el mapa", wakeTime = 1250) ) 

3.2 Inundación.

Para la Ciudad de México, la SGIRPC elaboró un mapa de peligros por inundaciones que puede verse a nivel AGEB (fig.36). Este mapa se construyó en base al “Índice de Inundabilidad” de la CONAGUA, para un periodo de retorno de 5 años, el cuál toma en cuenta factores como el relieve, la cantidad de lluvia y tipo y uso de suelo, ponderando por porcentaje del área inundable del AGEB y emitiendo una clasificación a cada área de la ciudad en uno de los 5 niveles de peligro (SGIRPC, 2019a). Como puede verse en la figura, se mantienen las zonas de Alto y Muy Alto peligro en las alcaldías Iztapalapa, Coyoacán, G.A.M., Xochimilco, Atzcapotzalco, Cuauhtemoc, Benito Juárez y Venustiano Carranza, además de AGEBs que presentan peligro dentro de Tlapan, Milpa Alta y Magdalena Contreras que no podrían visualizarse a otro nivel de desagregación de la información.

##########################
# MAPA 2 - INUNDACION #
##########################

paleta <- colorFactor("Blues", mapaFactor$INUNDACION, reverse = T)
( map <- leaflet(mapaFactor, options = leafletOptions(zoomControl = FALSE, minZoom = 10)) %>%    #
  addProviderTiles("CartoDB.Positron") %>% 
  addPolygons(highlightOptions = highlightOptions(color = "white"),
              color = "#444444", 
              weight = 0.2, 
              smoothFactor = 0.5, 
              opacity = 1, 
              label = lapply(label, htmltools::HTML), 
              fillOpacity = 0.8, 
              fillColor = ~paleta(mapaFactor$INUNDACION) ) %>%    #
  addPolygons(data = mapa_cdmx, 
              color = "#444444",
              weight = 4, 
              opacity = 1,
              fill = F
  ) %>% 
  addPolygons(data = mapa_municipios, 
              color = "#444444",
              weight = 2, 
              opacity = 1,
              fill = F
  ) %>% 
  # addScaleBar(position = "bottomright") %>%   
  addLegend(position = "bottomright", 
            pal = paleta, 
            values = mapaFactor$INUNDACION,     #
            title = "<div a style = 'color:red;'>Peligro:</div>Inundación", #
            opacity = 1,
            labFormat = labelFormat(suffix = " ")) %>%       #
  norte(ancho = 40, posicion = "topright") %>% 
    leaflet.extras::suspendScroll(wakeMessage = "Haga click o mantenga el cursor sobre el mapa", wakeTime = 1250) )

3.3 Tormentas Eléctricas.

Las tormentas eléctricas son tormentas en las cuales se producen descargas electrostáticas de manera brusca formadas por las cargas positivas y negativas acumuladas entre nubes y tierra (SMN, 2019). Las descargas suelen ser entre nube y nube o entre nube y tierra siendo estas últimas las más peligrosas para los seres vivos en la superficie.

El cálculo del peligro por tormentas eléctricas por parte de la SGIRPC de la Ciudad de México consiste en elaborar mapas de la ocurrencia anual de tormentas eléctricas de la Ciudad de México, y asignar a cada AGEB una zona de peligro en base a estos eventos futuros.

##########################
# MAPA 3 - TORM_ELEC     #
##########################
#c("#ffff00", "#ffff38", "#ffff70", "#ffffc4", "#ffffff")
paleta <- colorFactor(c("#ffffff", "#fff58c",  "#f99500"), mapaFactor$TOM_ELEC, reverse = T) #
map <- leaflet(mapaFactor, options = leafletOptions(zoomControl = FALSE, minZoom = 10)) %>%    #
  addProviderTiles("CartoDB.Positron") %>% 
  addPolygons(highlightOptions = highlightOptions(color = "white"),
              color = "#444444", 
              weight = 0.2, 
              smoothFactor = 0.5, 
              opacity = 1, 
             label = lapply(label, htmltools::HTML), 
              fillOpacity = 0.8, 
              fillColor = ~paleta(mapaFactor$TOM_ELEC) ) %>%    #
  addPolygons(data = mapa_cdmx, 
              color = "#444444",
              weight = 1, 
              fill = F
  ) %>% 
  addPolygons(data = mapa_municipios, 
              color = "#444444",
              weight = 1, 
              fill = F
  ) %>% 
  addScaleBar(position = "bottomright") %>%   
  addLegend(position = "bottomleft", 
            pal = paleta, 
            values = mapaFactor$TOM_ELEC,     #
            title = "<div a style = 'color:red;'>Peligro:</div> Tormenta Eléctrica",       #
            opacity = 1,
            labFormat = labelFormat(suffix = " ")) %>%       #
  norte(ancho = 40, posicion = "topright")
map %>% 
    leaflet.extras::suspendScroll(wakeMessage = "Haga click o mantenga el cursor sobre el mapa", wakeTime = 1250)

3.4 Granizo

El granizo es un tipo de precipitación sólida que se caracteriza por la caída de bolas de hielo de formas irregulares. El servicio meteorológico nacional define a las tormentas de granizo como “precipitación de glóbulos de hielo cuyo diámetro es del orden de 5 a mayor de 5 mm” (SMN, 2019). Estos fenómenos ocurren en toda la superficie terrestre, ocurriendo con mayor frecuencia en las zonas sub-tropicales, debido a la mayor ocurrencia de tormentas convectivas que favorecen el desarrollo de cumulonumbos (SMN, 2019). Este fenómeno constituye un problema para la ciudadanía al generar daños mecánicos (golpes) sobre vehículos y techos; puede lastimar a peatones sin protección y puede dañar la vegetación y los cultivos de la región.

##########################
# MAPA 4 - granizo #
##########################
paleta <- colorFactor("BuPu", mapaFactor$GRANIZO, reverse = T) #
map <- leaflet(mapaFactor, options = leafletOptions(zoomControl = FALSE, minZoom = 10)) %>%    #
  addProviderTiles("CartoDB.Positron") %>% 
  addPolygons(highlightOptions = highlightOptions(color = "white"),
              color = "#444444", 
              weight = 0.2, 
              smoothFactor = 0.5, 
              opacity = 1, 
              label = lapply(label, htmltools::HTML), 
              fillOpacity = 0.8, 
              fillColor = ~paleta(mapaFactor$GRANIZO) ) %>%    #
  addPolygons(data = mapa_cdmx, 
              color = "#444444",
              weight = 1, 
              fill = F
  ) %>% 
  addPolygons(data = mapa_municipios, 
              color = "#444444",
              weight = 1, 
              fill = F
  ) %>% 
  addScaleBar(position = "bottomright") %>%   
  addLegend(position = "bottomleft", 
            pal = paleta, 
            values = mapaFactor$GRANIZO,     #
            title = "<div a style = 'color:red;'>Peligro:</div> Granizo",       #
            opacity = 1,
            labFormat = labelFormat(suffix = " ")) %>%       #
  norte(ancho = 40, posicion = "topright")

# Desplegamos el mapa
map %>% 
    leaflet.extras::suspendScroll(wakeMessage = "Haga click o mantenga el cursor sobre el mapa", wakeTime = 1250)

Fuentes de información

• SGIRP. (2019). Atlas de riesgos de la Ciudad de México. Sección de Descarga de Datos. Accesible en http://www.atlas.cdmx.gob.mx. Secretaría de Gestión Integral del Riesgo y Protección Civil, CDMX.

• SGIRPC. (2019a). Indicadores de Peligro a Nivel AGEB. Secretaría de Gestion Integral de Riesgo y Protección Civil de la Ciudad de México, Subdirección de Fenómenos Naturales y Antropogénicos. Ciudad de México. Febrero, 2019. Acceso al documento mediante la Solicitud de Información INFOMEX DF – 0107500031919, disponible en http://www.infomexdf.org.mx/InfomexDF/consulta.html.

• SMN (2019). Glosario Técnico. Servicio Meteorológico Nacional. Comisión Nacional del Agua. México. Consultado en https://smn.cna.gob.mx/es/smn/glosario.