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


# }
Documentation reproduced from package HH, version 3.1-37, License: GPL (>= 2)

Community examples

Looks like there are no examples yet.