ResizeEtc

0th

Percentile

Display multiple independent trellis objects on the same coordinated scale.

This function is a wrapper for several of the functions in the latticeExtra package.

Keywords
hplot
Usage
ResizeEtc(c.list,
           condlevelsName,
           x.same, y.same,
           layout,
           strip=TRUE,
           strip.left=TRUE,
           strip.values, strip.left.values,
           strip.par, strip.left.par,  ## only the second is effective
                                       ## when both are specified
           resize.height, resize.width,
           main,
           ...)
Arguments
c.list
combination of two or more trellis objects from c.trellis. If c.list has names, the names will appear in the strips.
condlevelsName
Name of the dimname of the items in the c.list.
x.same, y.same
If TRUE, force all panels to have the same x.limits or y.limits.
layout
Standard lattice layout argument.
strip, strip.left
standard lattice arguments described in barchart.
strip.values, strip.left.values
strip names for the panels. Only the second is effective when both are specified.
strip.par, strip.left.par
par.strip.text. Only the second is effective when both are specified.
resize.height, resize.width
h and w arguments to resizePanels.
main
Main title for resulting combined plot.
...
Other arguments to barchart.
Value

  • "trellis" object combining each of the individual plots in the c.list argument according to the specifications in the other arguments.

See Also

c.trellis, plot.likert

Aliases
  • ResizeEtc
Examples
## see the examples in ?HH:::plot.likert

require(grid)
require(lattice)
require(latticeExtra)
require(HH)

## This is the same example as in ?HH:::plot.likert
## Here, it is done with explicit use of ResizeEtc.

data(ProfChal)
tmp <- data.matrix(ProfChal[,1:5])
rownames(tmp) <- ProfChal$Question

AA <- likert(tmp[1,], box.width=unit(.4,"cm"), positive.order=TRUE)
BB <- likert(tmp[2:6,], box.width=unit(.4,"cm"), positive.order=TRUE)
CC <- likert(tmp[7:10,], box.width=unit(.4,"cm"), positive.order=TRUE)
DD <- likert(tmp[11:12,], box.width=unit(.4,"cm"), positive.order=TRUE)
EE <- likert(tmp[13:14,], box.width=unit(.4,"cm"), positive.order=TRUE)
FF <- likert(tmp[15:16,], box.width=unit(.4,"cm"), positive.order=TRUE)

BB

## print(AA, more=TRUE,  split=c(1,1,3,2))
## print(BB, more=TRUE,  split=c(2,1,3,2))
## print(CC, more=TRUE,  split=c(3,1,3,2))
## print(DD, more=TRUE,  split=c(1,2,3,2))
## print(EE, more=TRUE,  split=c(2,2,3,2))
## print(FF, more=FALSE, split=c(3,2,3,2))

ResizeEtc(c.list=c(AA,BB,CC,DD,EE,FF),
          layout=c(1,6), main="Not yet good enough")

Group <- levels(ProfChal$Subtable)

ResizeEtc(c.list=c(AA,BB,CC,DD,EE,FF),
          condlevelsName='Group',
          x.same=TRUE,
          layout=c(1,6),
          strip.left.values=Group,
          strip.left.par=list(cex=.7, lines=5),
          resize.height=c(1,5,4,2,2,2)+.5,
          main=list("Is your job professionally challenging?", x=unit(.65, "npc")))
Documentation reproduced from package HH, version 3.1-23, License: GPL (>= 2)

Community examples

Looks like there are no examples yet.