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 <glc...@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]] ______________________________________________ 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.
