INTRODUCCIÓN

Los últimos 5 años se ha hecho más enfasis en los incendios que toman lugar en Santa Cruz de la Sierra por los medios de comunicación. Uno de los municipios que suele presentar focos de calor y por ende tiende a generar incendios por la zona es el municipio de San Ignacio de Velasco. Es un municipio que está en la forntera este del país, limitando territorio con Brasil.

Ubicación geográfica del municipio de San Ignacio de Velasco - Santa Cruz, Bolivia

METODOLOGÍA

Todos los datos utilizados en este trabajo fueron obtenidos desde EarthData. Se obtuvieron los datos sobre las áreas quemadas desde el año 2000 hasta el año 2020 a partir de un polígono limitando el municipio de San Ignacio de Velasco. La capa utilizada fue “Burn Date”.

RESULTADOS

A continuación se muestran los resultados pasmados en el municipio año por año.

library(rasterVis)
## Loading required package: lattice
library(ggplot2)
library(raster)
## Loading required package: sp
library(rgdal)
## Please note that rgdal will be retired by the end of 2023,
## plan transition to sf/stars/terra functions using GDAL and PROJ
## at your earliest convenience.
## 
## rgdal: version: 1.5-32, (SVN revision 1176)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 3.0.4, released 2020/01/28
## Path to GDAL shared files: /usr/share/gdal
## GDAL binary built with GEOS: TRUE 
## Loaded PROJ runtime: Rel. 6.3.1, February 10th, 2020, [PJ_VERSION: 631]
## Path to PROJ shared files: /usr/share/proj
## Linking to sp version:1.4-7
## To mute warnings of possible GDAL/OSR exportToProj4() degradation,
## use options("rgdal_show_exportToProj4_warnings"="none") before loading sp or rgdal.
dem0 <- raster("/cloud/project/lapaz/imags/0.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/0.tif")
plot((recentfire.raster),main = 'AÑO 2000')

dem1 <- raster("/cloud/project/lapaz/imags/1.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/1.tif")
extent(dem1)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2001')

dem2 <- raster("/cloud/project/lapaz/imags/2.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/2.tif")
extent(dem2)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2002')

dem3 <- raster("/cloud/project/lapaz/imags/3.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/3.tif")
extent(dem3)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2003')

dem4 <- raster("/cloud/project/lapaz/imags/4.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/4.tif")
extent(dem4)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2004')

dem5 <- raster("/cloud/project/lapaz/imags/5.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/5.tif")
extent(dem5)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2005')

dem6 <- raster("/cloud/project/lapaz/imags/6.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/6.tif")
extent(dem6)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2006')

dem7 <- raster("/cloud/project/lapaz/imags/7.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/7.tif")
extent(dem7)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2007')

dem8 <- raster("/cloud/project/lapaz/imags/8.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/8.tif")
extent(dem8)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2008')

dem9 <- raster("/cloud/project/lapaz/imags/9.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/9.tif")
extent(dem9)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2009')

dem10 <- raster("/cloud/project/lapaz/imags/10.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/10.tif")
extent(dem10)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2010')

dem11 <- raster("/cloud/project/lapaz/imags/11.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/11.tif")
extent(dem11)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2011')

dem12 <- raster("/cloud/project/lapaz/imags/12.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/12.tif")
extent(dem12)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2012')

dem13 <- raster("/cloud/project/lapaz/imags/13.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/13.tif")
extent(dem13)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2013')

dem14 <- raster("/cloud/project/lapaz/imags/14.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/14.tif")
extent(dem14)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2014')

dem15 <- raster("/cloud/project/lapaz/imags/15.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/15.tif")
extent(dem15)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2015')

dem16 <- raster("/cloud/project/lapaz/imags/16.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/16.tif")
extent(dem16)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2016')

dem17 <- raster("/cloud/project/lapaz/imags/17.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/17.tif")
extent(dem17)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2017')

dem18 <- raster("/cloud/project/lapaz/imags/18.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/18.tif")
extent(dem18)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2018')

dem19 <- raster("/cloud/project/lapaz/imags/19.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/19.tif")
extent(dem19)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2019')

dem20 <- raster("/cloud/project/lapaz/imags/20.tif")
recentfire.raster <- raster("/cloud/project/lapaz/imags/20.tif")
extent(dem20)
## class      : Extent 
## xmin       : -66.85 
## xmax       : -59.55833 
## ymin       : -17.125 
## ymax       : -9.745833
plot((recentfire.raster),main = 'AÑO 2020')