pointer.plot {pointRes}

Plot pointer years for multiple sites

Description

The function creates a dot plot showing positive and (or) negative pointer years from lists of the type as produced by pointer.norm, pointer.rgc, pointer.zchron and (or) interval.trend.

Usage

pointer.plot(list.sites, sign = c("both", "pos", "neg"),
             period = NULL, labels = NULL,
             x.tick.major = 10, x.tick.minor = 5)

Arguments

list.sites

a list with lists as produced by pointer.norm, pointer.rgc, pointer.zchron or interval.trend for individual sites (created using list(site1, site2,..)).

sign

a character string specifying whether both positive and negative ("both"), or only positive ("pos") or negative ("neg") pointer years should be displayed. Defaults to "both".

period

a vector specifying the start and end year to be plotted. Defaults to the full period covered by the output of the pointer year analyses.

labels

a character vector with labels for the sites. Defaults to 'site 1, 2, .., i'.

x.tick.major

an integer controlling the major x-axis tick labels. Defaults to 10 years.

x.tick.minor

an integer controlling the minor x-axis ticks. Defaults to 5 years.

Details

The function makes a dot plot showing pointer years for multiple sites. Positive and negative pointer years are indicated with different symbols an (or) colors.

Value

Dot plot.

Author(s)

Marieke van der Maaten-Theunissen and Ernst van der Maaten.

Examples

## Plot negative pointer years for multiple sites (or different methods)
data(s033)
detr_s033 <- detrend(s033, method = "Spline", nyrs = 30)
py <- pointer.rgc(s033)
pyn <- pointer.norm(detr_s033, method = "Neuwirth")
it <- interval.trend(s033)
zchron <- pointer.zchron(detr_s033)
comparison <- list(py, pyn, it, zchron)
pointer.plot(comparison, sign = "neg", period = c(1950, 2013),
             labels = c("py", "pyn", "it", "zchron")) 

## Plot pointer years for different specifications of pointer.norm (method "Neuwirth")
data(s033)
w09 <- pointer.norm(detr_s033, window = 9, method.thresh = "Neuwirth")
w11 <- pointer.norm(detr_s033, window = 11, method.thresh = "Neuwirth")
w13 <- pointer.norm(detr_s033, method.thresh = "Neuwirth")
comparison <- list(w09, w11, w13)
pointer.plot(comparison, period = c(1950, 2007))