After completing this tutorial, you will be able to:
- Calculate NDVI in R
- Describe what a vegetation index is and how it is used with spectral remote sensing data.
What you need
You will need a computer with internet access to complete this lesson and the data for week 6 of the course.
About vegetation indices
A vegetation index is a single value that quantifies vegetation health or structure. The math associated with calculating a vegetation index is derived from the physics of light reflection and absorption across bands. For instance, it is known that healthy vegetation reflects light strongly in the near infrared band and less strongly in the visible portion of the spectrum. Thus, if you create a ratio between light reflected in the near infrared and light reflected in the visible spectrum, it will represent areas that potentially have healthy vegetation.
Normalized difference vegetation index (NDVI)
The Normalized Difference Vegetation Index (NDVI) is a quantitative index of greenness ranging from 0-1 where 0 represents minimal or no greenness and 1 represents maximum greenness.
NDVI is often used for a quantitate proxy measure of vegetation health, cover and phenology (life cycle stage) over large areas.
Sometimes we are able to download already calculated NDVI data products. In this case, we need to calculate NDVI ourselves using the reflectance data that we have.
# load spatial packages library(raster) library(rgdal) library(rgeos) library(RColorBrewer) # turn off factors options(stringsAsFactors = F)
all_landsat_bands <- list.files("data/week_06/Landsat/LC80340322016205-SC20170127160728/crop", pattern=glob2rx("*band*.tif$"), full.names = T) # use the dollar sign at the end to get all files that END WITH all_landsat_bands ##  "data/week_06/Landsat/LC80340322016205-SC20170127160728/crop/LC80340322016205LGN00_sr_band1_crop.tif" ##  "data/week_06/Landsat/LC80340322016205-SC20170127160728/crop/LC80340322016205LGN00_sr_band2_crop.tif" ##  "data/week_06/Landsat/LC80340322016205-SC20170127160728/crop/LC80340322016205LGN00_sr_band3_crop.tif" ##  "data/week_06/Landsat/LC80340322016205-SC20170127160728/crop/LC80340322016205LGN00_sr_band4_crop.tif" ##  "data/week_06/Landsat/LC80340322016205-SC20170127160728/crop/LC80340322016205LGN00_sr_band5_crop.tif" ##  "data/week_06/Landsat/LC80340322016205-SC20170127160728/crop/LC80340322016205LGN00_sr_band6_crop.tif" ##  "data/week_06/Landsat/LC80340322016205-SC20170127160728/crop/LC80340322016205LGN00_sr_band7_crop.tif" # stack the data landsat_stack_csf <- stack(all_landsat_bands)
The normalized difference vegetation index (NDVI) uses a ratio between near infrared and red light within the electromagnetic spectrum. To calculate NDVI we use the following formula where NIR is near infrared light and red represents red light. For our raster data, we will take the reflectance value in the red and near infrared bands to calculate the index. .
(NIR - Red) / (NIR + Red)
# calculate NDVI landsat_ndvi <- (landsat_stack_csf[] - landsat_stack_csf[]) / (landsat_stack_csf[] + landsat_stack_csf[]) plot(landsat_ndvi, main = "Landsat derived NDVI\n 23 July 2016")
View distribution of NDVI values
# view distribution of NDVI values hist(landsat_ndvi, main = "NDVI: Distribution of pixels\n Landsat 2016 Cold Springs fire site", col = "springgreen")
When you are done, you may want to export your rasters so you could use them in QGIS or ArcGIS or share them with your colleagues. To do this you use the writeRaster() function.
# export raster # NOTE: this won't work if you don't have an outputs directory in your week6 dir! writeRaster(x = landsat_ndvi, filename="data/week_06/outputs/landsat_ndvi.tif", format = "GTiff", # save as a tif datatype='INT2S', # save as a INTEGER rather than a float overwrite = T) # OPTIONAL - be careful. this will OVERWRITE previous files.