plot.ts {base}R Documentation

Plotting Time-Series Objects

Description

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

Usage

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.

See Also

ts for basic time series construction and access functionality.

Examples


## Multivariate
z <- ts(matrix(rt(300, df = 3), 100, 3), start=c(1961, 1), frequency=12)
plot(z, type = "b")    # multiple
plot(z, plot.type="single", lty=1:3, col=4:2)

## 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
library(ts)
plot(nhtemp, lag(nhtemp, 1), cex = .8, col="blue",
     main = "Lag plot of New Haven temperatures")


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") 

[Package Contents]