latticeExtra (version 0.6-11)

panel.xyarea: Plot series as filled polygons.

Description

Plot series as filled polygons connected at given origin level (on y axis).

Usage

panel.xyarea(x, ...)

## S3 method for class 'default':
panel.xyarea(x, y, groups = NULL, origin = NULL,
             col, border, lty, lwd, alpha, ...,
             col.line, fill, panel.groups = panel.xyarea)

## S3 method for class 'ts':
panel.xyarea(x, y = NULL, ...)
## S3 method for class 'zoo':
panel.xyarea(x, y = NULL, ...)

panel.qqmath.xyarea(x, y = NULL, f.value = NULL, distribution = qnorm,
                    qtype = 7, groups = NULL, ..., tails.n = 0)

Arguments

x, y

data vectors.

groups

a factor defining groups.

origin

level on y axis to connect the start and end of the series. If NULL, the polygon is filled to the bottom of the panel.

col, border, lty, lwd, alpha, col.line

graphical parameters taken from trellis.par.get("plot.polygon") or trellis.par.get("superpose.polygon") (when groups defined). col.line overrides border.

...

further arguments passed on to panel.polygon. For panel.qqmath.xyarea, passed to panel.xyarea.

fill

ignored; use col instead.

panel.groups

used in panel.superpose.

f.value, distribution, qtype, tails.n

as in panel.qqmath.

Details

none yet.

See Also

panel.xyplot, panel.polygon

Examples

xyplot(sunspot.year, panel = panel.xyarea, origin = 0,
  aspect = "xy", cut = list(n = 3, overlap = 0))

.featured_example <- TRUE
## two series superposed: one filled, one as a line.
xyplot(ts.union(data = sunspot.year, lag10 = lag(sunspot.year, 10)),
  aspect = "xy", cut = list(n = 3, overlap = 0),
  superpose = TRUE,
  panel = panel.superpose,
  panel.groups = function(..., group.number) {
    if (group.number == 1)
      panel.xyarea(...) else panel.xyplot(...)
  },
  par.settings = simpleTheme(col = c("grey", "black"), lwd = c(5,2)))

## missing values are handled by splitting the series
tmp <- window(sunspot.year, start = 1900)
tmp[c(1:2, 50:60)] <- NA
xyplot(tmp, panel = panel.xyarea, origin = 0)

set.seed(0)
qqmath(~ data, make.groups(baseline = rnorm(100),
                           other = rnorm(100) * 2 - 0.5),
  groups = which, distribution = qunif,
  panel = panel.qqmath.xyarea, xlim = 0:1,
  auto.key = list(points = FALSE, rectangles = TRUE),
  par.settings = simpleTheme(col = c("grey", "transparent"),
                             border = c(NA, "black"), lwd = 2))