R: Plotting Time-Series Objects

plot.ts {base}

R Documentation

Plotting Time-Series Objects

Description

Plotting methods for objects of class "ts" or "mts" (multivariate time-series).

Usage

## S3 method for class 'ts'
plot(x, y = NULL, type = "l", frame.plot = axes,
     plot.type = c("multiple", "single"),
     xy.labels = n <= 150, xy.lines = do.lab, panel=lines, ...)

lines(x, ...)

Arguments

x, y

time series objects, usually of class "ts".

type

the type of plot, see plot. When y is present, the default will depend on xy.labels, see below.

frame.plot

a function to give the ‘frame’ for each panel.

plot.type

for multivariate time series, should the series by plotted separately (with a common time axis) or on a single plot?

xy.labels

logical, indicating if text() labels should be used for an x-y plot.

xy.lines

logical, indicating if lines should be drawn for an x-y plot. Default is true, when labels are drawn as well.

panel

a function(x, col, bg, pch, type, ...) which gives the action to be carried out in each panel of the display for plot.type="multiple". The default is lines.

...

additional graphical arguments, see plot, plot.default and par.

Details

With one principal argument, these functions create time series plots, for multivariate series of two kinds depending on plot.type,

If y is present, both x and y must be univariate, and a “scatter” plot y ~ x will be drawn, enhanced by using text if xy.labels is TRUE or character, and lines if xy.lines is TRUE.

Examples


## Multivariate
z <- ts(matrix(rt(300, df = 3), 100, 3), start=c(1961, 1), frequency=12)
plot(z)                # multiple
plot(z, panel=points)  # same with points instead of lines
plot(z, plot.type="single", lty=1:3)

## A phase plot:
data(nhtemp)
plot(nhtemp, c(nhtemp[-1], NA), cex = .8, col="blue",
     main = "Lag plot of New Haven temperatures")
## a clearer way to do this would be
## Not run: library(ts)
plot(nhtemp, lag(nhtemp, 1), cex = .8, col="blue",
     main = "Lag plot of New Haven temperatures")

## End(Not run)

library(ts)

data(sunspots)
## xy.lines and xy.labels are FALSE for large series:
plot(lag(sunspots, 1), sunspots, pch = ".")

data(EuStockMarkets)
SMI <- EuStockMarkets[, "SMI"]
plot(lag(SMI,  1), SMI, pch = ".")
plot(lag(SMI, 20), SMI, pch = ".", log = "xy",
     main = "4 weeks lagged SMI stocks -- log scale", xy.lines= TRUE)

detach("package:ts")