lattice: superposed boxplots with same colors forrectanglesandumbrellas and filled boxes

Thank you very much, Rich, for the fast and very helpful reply! It helped me
to reach my goal.

 Regards -- Gerrit

PS: I extended your solution to a version that allows slightly finer control
over the components of the boxplots, in particular if one wants to combine
it with, e.g., panel.stripplot() or panel.average(). It was also possible to
simplify my call of bwplot() a bit. The code is certainly not perfect and
fully tested, but does work (for me ;-)), and follows as a little 'thank
you':


panel.bwplot.constantColor <- function( ..., col, fill, cex, pch,
                                        dot.pch, umbrella.lty, box.alpha) {
 ## Date: Mon, 9 Dec 2013 17:52:38 -0500
 ## From: Richard M. Heiberger <rmh at temple.edu>
 ## Subject: Re: [R] lattice: superposed boxplots with same colors
 ##          for rectangles and umbrellas and filled boxes


 ## to be included in next version of the HH package
 box.save <- list( box.dot = trellis.par.get( "box.dot"),
                   box.rectangle = trellis.par.get( "box.rectangle"),
                   box.umbrella = trellis.par.get( "box.umbrella"),
                   plot.symbol = trellis.par.get( "plot.symbol"))
 trellis.par.set( box.dot = list( col = col),
                  box.rectangle = list( col = col, alpha = box.alpha),
                  box.umbrella = list( col = col, lty = umbrella.lty,
                                       alpha = box.alpha),
                  plot.symbol = list( col = col))
 panel.bwplot( ..., fill = col, cex = cex, pch = dot.pch)
 trellis.par.set( box.save)
 }


bwplot( Y ~ F1, groups = F2, data = Data, jitter.data = TRUE,
        col = c( "red", "blue"), box.alpha = 1/4,
        dot.pch = 17, umbrella.lty = 1, do.out = FALSE,
        panel = panel.superpose,
        panel.groups = panel.bwplot.constantColor)

Thank you for the opportunity to illustrate this.  I solved this problem
last week and it will be included in the next version of the HH package
(about a month away).

panel.bwplot.constantColor <- function(..., col, fill, cex, pch) {
 ## to be included in next version of the HH package
 box.save <- list(box.dot=trellis.par.get("box.dot"),
                  box.rectangle=trellis.par.get("box.rectangle"),
                  box.umbrella=trellis.par.get("box.umbrella"),
                  plot.symbol=trellis.par.get("plot.symbol"))
 trellis.par.set(box.dot=list(col=col),
                 box.rectangle=list(col=col),
                 box.umbrella=list(col=col),
                 plot.symbol=list(col=col))
 panel.bwplot(..., fill=col, cex=cex, pch=pch)
 trellis.par.set(box.save)
}

bwplot( Y ~ F1, groups = F2, data = Data,
       col = mycolors, fill = mycolors, jitter.data = TRUE, pch=19,
       panel = panel.superpose,
       panel.groups = function(..., pch, col, alpha){
           panel.stripplot(...)
           panel.bwplot.constantColor(..., pch=pch, col=col,
alpha=alpha, do.out = FALSE)
       },
       par.settings = list( box.dot = list( alpha = myalpha),
                            box.rectangle = list( col = mycolors,
                                                  alpha = myalpha),
                            box.umbrella = list( col = mycolors,
                                                 alpha = myalpha))
       )


Rich

On Mon, Dec 9, 2013 at 5:17 PM, Gerrit Eichner
<Gerrit.Eichner at math.uni-giessen.de> wrote:

Dear R-list,

I've been trying to produce a sort of an interaction plot wherein colored
stripplots and boxplots are superposed. In particular, I want the colors
of
the (transparently) filled boxes to be the same as the colors of the box
borders (rectangle) and their whiskers (umbrella). Below I'm going to
create
an artificial data set and provide the code with which I've come up so
far,
and which is a fusion and adaptation of a few pieces of code I've found
in
the help pages and the mail archives. It does almost what I want, but
still
colors the rectangles and the umbrellas in black (of course, because it
is
the setting in the example presented below). However, the latter is what
I
want to change.

x <- c( rep( 1:4, each = 10), rep( -2, 40))
Data <- data.frame( F1 = gl( 4, 10, length = 80, labels = LETTERS[ 1:4]),
                    F2 = gl( 2, 40), Y = x + rnorm( length( x)))

mycolors <- c( "red", "blue")
myalpha <- 0.33
bwplot( Y ~ F1, groups = F2, data = Data,
        col = mycolors, fill = mycolors, jitter.data = TRUE,
        panel = panel.superpose,
        panel.groups = function(..., pch, col, alpha){
            panel.stripplot(...)
            panel.bwplot(..., do.out = FALSE)
        },
        par.settings = list( box.dot = list( alpha = myalpha),
                             box.rectangle = list( col = "black",
                                                   alpha = myalpha),
                             box.umbrella = list( col = "black",
                                                  alpha = myalpha))
        )


If I'd provide mycolors instead of "black" to the col-component of the
(sub-)lists given to par.settings, the coloring of the respective
components
of the boxplots would not be what I want. Having studied the code of
panel.superpose() and panel.bwplot() it appears to me that panel.bwplot()
cannot access the settings created by panel.supperpose when it comes to
drawing the rectangle and umbrella of a boxplot. It only accesses
box.[dot,
rectangle, umbrella], which does not give what I need.

I may have overlooked the obvious and would be quite grateful if somebody
could give me a hint where to look further. Or is a workaround necessary
(and available)?

Thanks a lot in advance!

 Best Regards  --  Gerrit