HH (version 3.1-47)

ResizeEtc: 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.

See Also

c.trellis, plot.likert

Examples

# NOT RUN {
## 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")))


# }