panel.barchart2
is based on panel.barchart
The changes are
* the heights in each horizontal stacked bar are constant.
* the widths in each vertical stacked bar are constant.
* the panel.barchart heights and widths are based on the box.width argument.
* the panel.barchart2 heights and widths when stack==TRUE
are also based
on the new stackWidth
argument. panel.likert
calls panel.barchart2
scaling of stackWidth
:
stackWidth <- stackWidth/mean(stackWidth) ## and maybe smaller with another /2
panel.barchart2(x, y, box.ratio = 1, box.width = box.ratio/(1 + box.ratio), horizontal = TRUE, origin = NULL, reference = TRUE, stack = FALSE, groups = NULL, col = if (is.null(groups)) plot.polygon$col else superpose.polygon$col, border = if (is.null(groups)) plot.polygon$border else superpose.polygon$border, lty = if (is.null(groups)) plot.polygon$lty else superpose.polygon$lty, lwd = if (is.null(groups)) plot.polygon$lwd else superpose.polygon$lwd, ..., identifier = "barchart", stackWidth=NULL)
panel.likert(..., horizontal=TRUE, reference.line.col="gray65")
panel.barchart
.panel.barchart
.panel.barchart
.stackWidth <- stackWidth/mean(stackWidth)
and adjusting as seems appropriate.likert
.likert