plot.ts {stats} | R Documentation |
Plotting Time-Series Objects
Description
Plotting method for objects inheriting from class "ts"
.
Usage
## S3 method for class 'ts'
plot(x, y = NULL, plot.type = c("multiple", "single"),
xy.labels, xy.lines, panel = lines, nc, yax.flip = FALSE,
mar.multi = c(0, 5.1, 0, if(yax.flip) 5.1 else 2.1),
oma.multi = c(6, 0, 5, 0), axes = TRUE, ...)
## S3 method for class 'ts'
lines(x, ...)
Arguments
x , y |
time series objects, usually inheriting from class |
plot.type |
for multivariate time series, should the series by plotted separately (with a common time axis) or on a single plot? Can be abbreviated. |
xy.labels |
logical, indicating if |
xy.lines |
logical, indicating if |
panel |
a |
nc |
the number of columns to use when |
yax.flip |
logical indicating if the y-axis (ticks and numbering)
should flip from side 2 (left) to 4 (right) from series to series
when |
mar.multi , oma.multi |
the (default) |
axes |
logical indicating if x- and y- axes should be drawn. |
... |
additional graphical arguments, see |
Details
If y
is missing, this function creates a time series
plot, for multivariate series of one 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
require(graphics)
## Multivariate
z <- ts(matrix(rt(200 * 8, df = 3), 200, 8),
start = c(1961, 1), frequency = 12)
plot(z, yax.flip = TRUE)
plot(z, axes = FALSE, ann = FALSE, frame.plot = TRUE,
mar.multi = c(0,0,0,0), oma.multi = c(1,1,5,1))
title("plot(ts(..), axes=FALSE, ann=FALSE, frame.plot=TRUE, mar..., oma...)")
z <- window(z[,1:3], end = c(1969,12))
plot(z, type = "b") # multiple
plot(z, plot.type = "single", lty = 1:3, col = 4:2)
## A phase plot:
plot(nhtemp, lag(nhtemp, 1), cex = .8, col = "blue",
main = "Lag plot of New Haven temperatures")
## xy.lines and xy.labels are FALSE for large series:
plot(lag(sunspots, 1), sunspots, pch = ".")
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)