ResizeEtc: Display multiple independent trellis objects on the same...

In HH: Statistical Analysis and Data Display: Heiberger and Holland

Display multiple independent trellis objects on the same coordinated scale.

Description

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

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.

Author(s)

Richard M. Heiberger <[e-mail]>

See Also

c.trellis, plot.likert

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")))

HH documentation built on May 29, 2024, 6:24 a.m.