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.sar...@gmail.com>wrote:
> On Tue, Sep 28, 2010 at 12:59 PM, Christophe Bouffioux
> <christophe....@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 <ehl...@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]]
______________________________________________
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
and provide commented, minimal, self-contained, reproducible code.
