search for: mybwplot

...ry/230065.html). The example he gave was relatively specific and I wanted to generalize his approach into a function. Unfortunately, I seem to have some issues passing the correct arguments to the panel function, and would greatly appreciate any suggestions to solve these issues: require(lattice) mybwplot <- function(x,y,data,groups){ if (missing(groups)||is.null(groups)) { groups <- NULL ngroups <- 1 } else { data[[groups]] <- as.factor(data[[groups]]) ngroups <- nlevels(data[[groups]]) } mywidth <- 1/(ngroups+1) mypanel <- function(x,y,groups,...){...

...oned by another factor. My client didn't like the look of the boxplots (by default, they have a star to mark the median, instead of the commonly used line). I told him "no problem" dumped panel.bwplot, added a line at the median, commented out the star, and sourced it back in as panel.mybwplot. Then I tried to call it with bwplot(...,panel="panel.mybwplot"), but this hit two roadblocks. The first one was relatively easy: it didn't find the function current.viewport (from grid). Explicitely loading the package grid was sufficient (current.viewport is exported there). But t...