1.INTRODUCCIÓN 2.OBJETIVO 3.ÁREA ESTUDIO 4.DATOS 5.MÉTODOS.
m <- leaflet()
m <- addTiles(m)
m <- addMarkers(m, lng=-74.15, lat=9.59, popup="COORDENADA REFERENCIA ÁREA ESTUDIO")
m
cobertura3<- shapefile("C:/informe1/shape_info1")
plot(cobertura3, axes=F, main="Area de Estudio")
| MUNICIPIO | COD MPIO |
|---|---|
| El Banco | 245 |
| Guamal | 318 |
| Pijiño del Carmen | 545 |
| San Sebastian de Buena Vista | 692 |
| San Zenon | 703 |
| Santa Ana | 707. |
A continuación. municipios del área de estudio (Figura 1).
knitr::include_graphics("C:/informe1/mpios.jpg")
knitr::include_graphics("C:/informe1/Bandas_L8.jpg")
knitr::include_graphics("C:/informe1/bandas_dibujo.jpg")
Fuente imagen: http://mappingandco.com/blog/disfrutando-del-landsat-8-1-parte-especificaciones-tecnicas/
landsatRGB <- stack(b5, b4, b3)
plotRGB(landsatRGB, axes = TRUE, stretch = "hist", main = "ESCENA L8 FALSO COLOR COMPOSICIÓN 5,4,3")
A continuación se observa el summary de las bandas desplegadas, con sus valores mínimos, maximos, quantiles y medidas de tendencia central.
landsat_prop <- stack(b2, b3, b4, b5, b6, b7)
summary(landsat_prop)
## Warning in .local(object, ...): summary is an estimate based on a sample of 1e+05 cells (0.17% of all cells)
## LC08_L1TP_008054_20190811_20190820_01_T1_sr_band2
## Min. -1333.00
## 1st Qu. 206.00
## Median 405.00
## 3rd Qu. 1029.75
## Max. 10564.00
## NA's 17932851.00
## LC08_L1TP_008054_20190811_20190820_01_T1_sr_band3
## Min. -234
## 1st Qu. 489
## Median 774
## 3rd Qu. 1207
## Max. 11348
## NA's 17932851
## LC08_L1TP_008054_20190811_20190820_01_T1_sr_band4
## Min. -313
## 1st Qu. 335
## Median 682
## 3rd Qu. 1117
## Max. 11901
## NA's 17932851
## LC08_L1TP_008054_20190811_20190820_01_T1_sr_band5
## Min. 291
## 1st Qu. 2998
## Median 3474
## 3rd Qu. 3955
## Max. 12678
## NA's 17932851
## LC08_L1TP_008054_20190811_20190820_01_T1_sr_band6
## Min. 106
## 1st Qu. 1491
## Median 1939
## 3rd Qu. 2446
## Max. 8568
## NA's 17932851
## LC08_L1TP_008054_20190811_20190820_01_T1_sr_band7
## Min. 59
## 1st Qu. 656
## Median 1001
## 3rd Qu. 1403
## Max. 6467
## NA's 17932851
Metadato Imagen
LANDSAT_SCENE_ID = “LC80080542019223LGN00”
LANDSAT_PRODUCT_ID = “LC08_L1TP_008054_20190811_20190820_01_T1”
COLLECTION_NUMBER = 01
COLLECTION_CATEGORY = “T1”
WRS_PATH = 8
WRS_ROW = 54
MAP_PROJECTION = “UTM”
DATUM = “WGS84”
ELLIPSOID = “WGS84”
UTM_ZONE = 18
GRID_CELL_SIZE_PANCHROMATIC = 15.00
GRID_CELL_SIZE_REFLECTIVE = 30.00
GRID_CELL_SIZE_THERMAL = 30.00
ORIENTATION = “NORTH_UP”
RESAMPLING_OPTION = “CUBIC_CONVOLUTION”.
landsat_unido <- stack(b2, b3, b4, b5, b6, b7)
#Se genera el recorte con la función crop a continuación
cobertura_corte<- shapefile("C:/informe1/shape_info2")
corte = crop(landsat_unido,cobertura_corte)
corte2 = mask(corte, cobertura_corte)
#Exporto el recorte generado
#writeRaster(corte2, filename="prueba4_recorte", format="GTiff", overwrite=TRUE)
Corte4 <- stack('C:/informe1/prueba4_recorte.tif')
names(Corte4) <- c('blue', 'green', 'red', 'NIR', 'SWIR1', 'SWIR2')
A continuación, en la Figura 7, se observa el recorte realizado, en compocision 543 (infrarojo), resaltando la vegetación.
plotRGB(Corte4, r="NIR", g="red", b="green", axes=TRUE, stretch="lin", main="RECORTE COMPOCISIÓN INFRAROJO (543)")
Los valores resumidos de las bandas, una vez realizado el recorte se encuentran a continuación; se observa que los maximos, minimos y valores de tendencia central cambian con respecto a la escena Completa; esto es debido a que al hacer el corte, el numero de datos disminuye, por lo cual si solo se utiliza un subset de la imagen para el procesamiento; es necesario calcular las estadisticas despues de haber realizado el corte, para obtener una información mas ajustada a la realidad.
summary(Corte4)
## Warning in .local(object, ...): summary is an estimate based on a sample of 1e+05 cells (6.5% of all cells)
## blue green red NIR SWIR1 SWIR2
## Min. 100 405 282 855 701 474
## 1st Qu. 340 785 648 3422 2266 1182
## Median 463 922 838 3652 2570 1406
## 3rd Qu. 818 1053 998 3903 2882 1657
## Max. 5180 5491 5606 6790 6123 4809
## NA's 811514 811514 811514 811514 811514 811514
La clasificación supervisada es aquella en que se le señala al algoritmo, cuantas clases generar, y se toman muestras o áreas de entrenamiento en la imagen, para cada clase de forma que se toma una muestra representativa de cada una;con las áreas de entrenamiento, el algoritmo agrupa los pixeles por su similitud espectral.