panel.xyarea: Plot series as filled polygons.

Description Usage Arguments Details Author(s) See Also Examples

View source: R/panel.xyarea.R

Description

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

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
panel.xyarea(x, ...)

## Default S3 method:
panel.xyarea(x, y, groups = NULL, origin = NULL, horizontal = FALSE,
             col, col.line, border, lty, lwd, alpha, ...,
             fill, panel.groups = panel.xyarea)

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

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. It is flipped if horizontal = TRUE.

horizontal

if this is set to TRUE, then the origin is a level on the x axis, rather than the default which is on the y axis. This is the opposite of what you might expect, but is for consistency with panel.xyplot.

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

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

...

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.

Author(s)

Felix Andrews felix@nfrac.org

See Also

panel.xyplot, panel.polygon

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
xyplot(sunspot.year, panel = panel.xyarea, origin = 0,
  aspect = "xy", cut = list(n = 3, overlap = 0))

## 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(...)
  }, border = NA, 
  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("blue", "green"),
                             alpha = 0.5))

Example output

Loading required package: lattice
Loading required package: RColorBrewer

latticeExtra documentation built on Dec. 19, 2019, 5:06 p.m.