addPanel: Add a panel to an existing xts plot

In joshuaulrich/xts: eXtensible Time Series

Add a panel to an existing xts plot

Description

Apply a function to the data of an existing xts plot object and plot the result on an existing or new panel. FUN should have arguments x or R for the data of the existing xts plot object to be passed to. All other additional arguments for FUN are passed through ....

Usage

addPanel(
  FUN,
  main = "",
  on = NA,
  type = "l",
  col = NULL,
  lty = 1,
  lwd = 1,
  pch = 1,
  ...
)

Arguments

FUN	An xts object to plot.
main	Main title for a new panel if drawn.
on	Panel number to draw on. A new panel will be drawn if on = NA.
type	The type of plot to be drawn, same as in plot().
col	Color palette to use, set by default to rational choices.
lty	Set the line type, same as in par().
lwd	Set the line width, same as in par().
pch	The type of plot to be drawn, same as in par().
...	Additional named arguments passed through to FUN and any other graphical passthrough parameters.

Author(s)

Ross Bennett

See Also

plot.xts(), addSeries()

Examples

library(xts)
data(sample_matrix)
sample.xts <- as.xts(sample_matrix)

calcReturns <- function(price, method = c("discrete", "log")){
  px <- try.xts(price)
  method <- match.arg(method)[1L]
  returns <- switch(method,
    simple = ,
    discrete = px / lag(px) - 1,
    compound = ,
    log = diff(log(px)))
  reclass(returns, px)
}

# plot the Close
plot(sample.xts[,"Close"])
# calculate returns 
addPanel(calcReturns, method = "discrete", type = "h")
# Add simple moving average to panel 1
addPanel(rollmean, k = 20, on = 1)
addPanel(rollmean, k = 40, col = "blue", on = 1)

joshuaulrich/xts documentation built on Nov. 17, 2024, 6:37 a.m.