addPanel | R Documentation |
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 ....
addPanel(
FUN,
main = "",
on = NA,
type = "l",
col = NULL,
lty = 1,
lwd = 1,
pch = 1,
...
)
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 |
type |
The type of plot to be drawn, same as in |
col |
Color palette to use, set by default to rational choices. |
lty |
Set the line type, same as in |
lwd |
Set the line width, same as in |
pch |
The type of plot to be drawn, same as in |
... |
Additional named arguments passed through to |
Ross Bennett
plot.xts()
, addSeries()
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.