Try googling "latticeExtra x.same" for some examples. Here's one:

http://www.mail-archive.com/r-help@r-project.org/msg39048.html

On Wed, Jan 20, 2010 at 9:44 AM, George Chen <glchen@stanford.edu> wrote:

> Hello,
>
> I would like to juxtapose two lattice graphs with common X axes such that
> the X axes line up.  I am using plot right now but the edges are not neat
> and it would be nice if I could just draw 1 X axis and not both of them.
>
> Here is my code:
>
>
>
> upper<-bwplot(SignalUsed~as.factor(AllNormalHitsNamesCount),data=NmlOverviewArray2,
>        xlab="",
>        ylab="Intensity of Individual Antibody Responses",
>        main="Intensity, Frequency, Distribution, & Quantity of Normal
> Antibody Responses",
>        box.ratio=1,
>        panel = function (AllNormalHitsNamesCount,...) {
>                panel.bwplot(...)
>                }
>        )
>
> lower<-barchart(as.vector(table(NmlOverviewArray2$AllNormalHitsNamesCount))
>
>  ~as.factor(as.numeric(names(table(NmlOverviewArray2$AllNormalHitsNamesCount)))),
>                        data=NmlOverviewArray2,
>                        ylab="Number of Individual Antibody Responses",
>                        xlab="Occurrence of Individual Antibody Responses
> (Out of 45 Normals)",
>                        box.ratio=1)
>
> plot (upper, newpage=TRUE, more=TRUE, position = c(0,.15,1,1))
> plot (lower, newpage=FALSE, more=TRUE, position = c(0,0,1,.3))
>
>
> George
>
> ______________________________________________
> 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.
>

	[[alternative HTML version deleted]]

