Visualizing Drought

The impacts of drought depend on time-scale. On short time-scales, drought means dry soil. On long time-scales, it means dry rivers and empty reservoirs. A region may simultaneously experience dry conditions on one time-scale and wet conditions on another e.g. wet soil but low streamflow or visa versa.

Standardized Precipitation Index (SPI) is a widely used measure of drought which can be defined for any time-scale of interest. For any location, SPI is normally distributed with zero mean and unit standard deviation. Index values > 2 indicate exceptionally wet conditions for that location, values < -2 indicate exceptionally dry conditions for that location, etc. Historical precipitation is the only input needed to compute SPI.

Australia experienced drought between 2002 and 2007. The image below shows SPI computed for a location in the drought-prone Murray-Darling basin of New South Wales. The time-series run from Jan 1948 to Jan 2010 and the index was calculated for time-scales from 1 to 12 months. Precipitation data is from NCEP Reanalysis [1] in a 1.875° × 1.875° grid cell centred at 30°S 145°E.

 

 

SPI

 

The drought of 2002 to 2007 shows up very clearly. It was preceeded by a wet period between 2005 and 2001. While 2009 showed an episode of severe drought at short time-scales, SPI at was normal/wet at longer time-scales during 2009. Agricultural yields recovered.

Calculating SPI-M

 

 

Empirical rainfall probability distributions are far from normal (gaussian) and often approximate a shifted gamma distribution. The empirical cumulative probability distributions are used to transform the rainfall time-series into time-series of percentile probabilities. A normally distributed precipitation index is found by pretending that these percentile probabilities derive from a standard cumulative normal distribution and inverting to find the index values.

This is simple in R. If the vector data contains rainfall infall data, then:

fit.cdf <- ecdf(data)
cdfs <- sapply(data,fit.cdf)
SPI <- qnorm(cdfs)

Tha rainfall data are M-month moving averages (current and previous months). A separate index is calculated for each calendar month to remove seasonality. The R code used to compute SPI values (based in NCEP Reanalysis or other data sets such as GCPC) is here.

[1] The NCEP/NCAR 40-year reanalysis project, Bull. Amer. Meteor. Soc., 77, 437-470, 1996

Noted Added 11 October 2011: I have uploaded a slightly improved SPI R script here. The function getPrecOnTimescale(precipitation,k) takes a vector of monthly precipitation values and returns a k-month average (i.e current month and prior k-1 months). getSPIfromPrec(precip.k) takes k-month precipitation values and returns the corresponding vector of SPI values.

14 Comments

  1. Hi

    I tried to run your R code. I used the same data as you did (but only till Dec 2009, so 744 months).
    First, I had to make a little correction, as you didn’t define N_timescale. I defined N_timescale <- Nt (I hope so far, I understood it correctly).
    The point now: I get the same plot as result, but with the warning message "Warning message: In matrix(unlist(spi.m), Nt, 12) : data length [9804] is not a sub-multiple or multiple of the number of rows [744]".
    I guess the mistake lies within the calculation of the spi. Do you know this error message already? If yes, can you possibly help me?

    Thanks, Claudia

  2. Claudia,

    my apologies. replace N_timescale with 12 to reproduce the plot in the post i.e 12 SPI indices SPI1, SPI2, SPI3 … SPI12 are calculated for each month. This should deal with the warning message.

  3. As Claudia indicated I get the following message after replacing N_timescale by 12. How you got the # 756?
    Warning message:
    In matrix(unlist(spi.m), 756, 12) :
    data length [9216] is not a sub-multiple or multiple of the number of rows [756]

  4. Hi Peter,

    I uploaded a better version of the SPI script. It takes a vector of precipitation value e.g. from an individual weather station. You might find it more useful.

  5. Hi Joe,

    Would it be possible for me to get an update version of the SPI script that you refer to above, please?

    Many thanks.

    Laura

  6. I’m beginning with R, I’m trying to these command
    fit.cdf <- ecdf(data)

    However I got the following error
    Error in approxfun(vals, cumsum(tabulate(match(x, vals)))/n, method = "constant", :
    zero non-NA points
    In addition: Warning message:
    In xy.coords(x, y) : NAs introduced by coercion
    My data archive is formed by a single column of precipitation data, what criteria does my file need to meet to run that command? (values, decimal point, undefined data)

  7. ecdf(x) is a base R function which takes a numeric vector x (see ?ecdf). stackoverflow is a good place for general R queries. regards.

  8. Hi Joe,
    I am a new user of R.Please give the data set you use and also the R code.Thats why i could easily understood the method.need your help.
    Best regards

  9. Hi Joe,

    Have tried running a .nc file from Climate Research Unite (CRU) from 1930-2011, then I changed my time to start from 1961 to 2011(0r 2012). i.e.

    #dates<- seq(from=1948+1/24, to= 2011,by=1/12)
    dates<- seq(from=1961+1/24, to= 2012,by=1/12)
    ….
    the spi.m also did not work then I changed it as bellow;
    #spi.m[[k]] is the spi index for timescale k
    #time-scale loop. k is timescale index 1 .. 12
    #spi.m <- as.list(rep(0,N_timescale))
    spi.m spi filled.contour(dates,seq(1:12),spi,col=spi.cols(11),xlab=””,ylab=”time-scale (months)”,cex.lab=1.7,font.axis=2,font.lab=2,levels=spi.breaks,key.title=”SPI”)
    Error in .filled.contour(x, y, z, levels, col) : dimension mismatch

    KINDLY HELP.

  10. Hello, thank you very much for your code. I’m using it because I need to get the SPI from an .nc file (CHIRPS data), however I want to do SPI-6 and I’m not sure of how can I do that.
    Also I would like to plot it in a map, should I make a grid for each SPI value?
    Thank you very much

Leave a Comment

Your email address will not be published. Required fields are marked *