BINGO
we have the solution

thanks a lot both, Deepayan and Dennis, for your help

Christophe

On Tue, Sep 28, 2010 at 2:10 PM, Deepayan Sarkar
<deepayan.sarkar@gmail.com>wrote:

> On Tue, Sep 28, 2010 at 12:59 PM, Christophe Bouffioux
> <christophe.b00@gmail.com> wrote:
> > Thanks for your help Peter
> > but the red marks on boxplot do not correspond to ex2 dataframe
> > actually, it reproduce on each panel the same marks
> > that is to say the 3 first lines of ex2
> > So this is not correct
>
> You are probably looking for something like these:
>
> bwplot(v2 ~ v1 | z, data = ex3, layout=c(3,2), X = ex3$v1b,
>       pch = "|",
>       panel = function(x, y, ..., X, subscripts){
>           panel.bwplot(x, y, ..., subscripts = subscripts)
>           X <- X[subscripts]
>           X <- tapply(X, y, unique)
>           Y <- tapply(y, y, unique)
>           panel.points(X, Y, pch = 17, col = "red")
>       })
>
>
> bwplot(v2 ~ v1 | z, data = ex, layout=c(3,2), ext.data = ex2,
>       pch = "|",
>       panel = function(x, y, ..., ext.data){
>           panel.bwplot(x, y, ...)
>           i <- which.packet()
>           sub <- subset(ext.data, as.numeric(z) == i)
>           with(sub, panel.points(v1b, v2, pch = 17, col = "red"))
>       })
>
> -Deepayan
>
> >
> >
> > Christophe
> >
> > On Mon, Sep 27, 2010 at 6:18 PM, Peter Ehlers <ehlers@ucalgary.ca>
> wrote:
> >
> >> On 2010-09-27 4:54, Christophe Bouffioux wrote:
> >>
> >>> bwplot(v2 ~ v1 | z, data = ex3, layout=c(3,2),
> >>>        pch = "|",
> >>>        par.settings = list(
> >>>        plot.symbol = list(alpha = 1, col = "transparent",cex = 1,pch =
> >>> 20)),
> >>>        panel = function(x, y){
> >>>             panel.bwplot(x, y)
> >>>             X<- tapply(ex3$v1b, ex3[,c(1,2)], max)
> >>>             Y<- seq(length(unique(ex3[,c(1,2)])))
> >>>             panel.points(X, Y, pch = 17, col = "red")
> >>>             })
> >>>
> >>>
> >> Perhaps this is what you're trying to achieve:
> >>
> >>
> >>  bwplot(v2 ~ v1 | z, data = ex3, layout=c(3,2),
> >>       panel = function(x, y){
> >>            panel.bwplot(x, y, pch="|")
> >>            X <- tapply(ex3$v1b, ex3[, 1:2], max)
> >>            Y <- seq(nrow(unique(ex3[, 1:2])))
> >>
> >>            panel.points(X, Y, pch = 17, col = "red")
> >>            })
> >>
> >> (I didn't see any need for your par.settings.)
> >>
> >> I'm not crazy about the way you define X,Y. I think
> >> I would augment the data frame appropriately instead.
> >>
> >>  -Peter Ehlers
> >>
> >
>  >        [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > R-help@r-project.org mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html>
> > and provide commented, minimal, self-contained, reproducible code.
> >
>

	[[alternative HTML version deleted]]

