Proyecto inundacion Sucre

Presentación del video en youtube, del recorrido del río para provocar inundación

Imagen rasterizada del recorrido del río correspondiente a 50 segundos

library(raster)

## Loading required package: sp

r50 <- raster("Specific_Discharge__50.0.asc")
proj4string(r50) <- CRS("+init=epsg:32720")

plot(r50)

Imagen rasterizada del recorrido del río correspondiente a 80 segundos

library(raster)
r80 <- raster("Specific_Discharge__80.0.asc")
proj4string(r80) <- CRS("+init=epsg:32720")
plot(r80)

Imagen rasterizada del recorrido del río correspondiente a 110 segundos

library(raster)
r110 <- raster("Specific_Discharge__110.0.asc")
proj4string(r110) <- CRS("+init=epsg:32720")
plot(r110)

Imagen rasterizada del recorrido del río correspondiente a 150 segundos

library(raster)
r150 <- raster("Specific_Discharge__150.0.asc")
proj4string(r150) <- CRS("+init=epsg:32720")
plot(r150)

library(leaflet)

pal50 <- colorNumeric(c("#D96150", "#41B6C4", "#1418F1"), values(r50),na.color = "transparent")
pal80 <- colorNumeric(c("#D96150", "#41B6C4", "#1418F1"), values(r80),na.color = "transparent")
pal110 <- colorNumeric(c("#D96150", "#41B6C4", "#1418F1"), values(r110),na.color = "transparent")
pal150 <- colorNumeric(c("#D96150", "#41B6C4", "#1418F1"), values(r150),na.color = "transparent")