| plot-methods {timeSeries} | R Documentation |
Plot 'timeSeries' objects.
## S4 method for signature 'timeSeries':
plot(x, y, FinCenter = NULL, plot.type =
c("multiple", "single"), format = "auto", at = "auto", widths = 1,
heights = 1, 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, ...)
## S4 method for signature 'timeSeries':
lines(x, FinCenter = NULL, ...)
## S4 method for signature 'timeSeries':
points(x, FinCenter = NULL, ...)
x |
an object of class timeSeries.
|
y |
an object of class timeSeries.
|
FinCenter |
a character with the the location of the financial center named as "continent/city". |
plot.type |
for multivariate time series, should the series by plotted separately (with a common time axis) or on a single plot? |
format |
... |
at |
... |
widths |
... |
heights |
... |
xy.labels |
logical, indicating if text() labels should be used for an
x-y plot, _or_ character, supplying a vector of labels to be
used. The default is to label for up to 150 points, and not
for more.
|
xy.lines |
logical, indicating if lines should be drawn for an x-y
plot. Defaults to the value of xy.labels if that is
logical, otherwise to TRUE
|
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
|
nc |
the number of columns to use when type="multiple". Defaults
to 1 for up to 4 series, otherwise to 2.
|
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 type="multiple".
|
mar.multi, oma.multi |
the (default) par settings for plot.type="multiple".
|
axes |
logical indicating if x- and y- axes should be drawn. |
... |
additional graphical arguments, see plot, plot.default
and par
|
a plot or plot elements of an object of class timeSeries.
## Load Swiss Pension Fund Benchmark Data -
LPP = LPP2005REC[1:12, 1:4]
colnames(LPP) <- abbreviate(colnames(LPP), 2)
finCenter(LPP) <- "GMT"
## Example Plot 1 -
plot(LPP[, 1], type = "o", col = "steelblue",
main = "LPP", xlab = "2005", ylab = "Return")
## Example Plot 2 -
plot(LPP[, 1:2], type = "o", col = "steelblue",
main = "LPP", xlab = "2005", ylab = "Return")
## Example Plot 3 -
plot(LPP[, 1], LPP[, 2], type = "p", col = "steelblue",
main = "LPP", xlab = "Return 1", ylab = "Return 2")
## Example Plot 4a, The Wrong Way to do it! -
LPP = as.timeSeries(data(LPP2005REC))
ZRH = as.timeSeries(LPP[,"SPI"], zone = "Zurich", FinCenter = "Zurich")
NYC = as.timeSeries(LPP[,"LMI"], zone = "NewYork", FinCenter = "NewYork")
finCenter(ZRH)
finCenter(NYC)
plot(ZRH, type = "p", pch = 19, col = "blue")
points(NYC, pch = 19, col = "red")
## Example Plot 4b, Convert NYC to Zurich Time -
finCenter(ZRH) <- "Zurich"
finCenter(NYC) <- "Zurich"
at = unique(round(time(ZRH)))
plot(ZRH, type = "p", pch = 19, col = "blue", format = "%b %d", at = at,
xlab = paste(ZRH@FinCenter, "local Time"), main = ZRH@FinCenter)
points(NYC, pch = 19, col = "red")
## Example 4c, Force Everything to GMT Using "FinCenter" Argument -
finCenter(ZRH) <- "Zurich"
finCenter(NYC) <- "NewYork"
at = unique(round(time(ZRH)))
plot(ZRH, type = "p", pch = 19, col = "blue", format = "%b %d", at = at,
FinCenter = "GMT", xlab = "GMT", main = "ZRH - GMT")
points(NYC, FinCenter = "GMT", pch = 19, col = "red")