Raw Message

Message-ID: <670833695.777201264009493423.JavaMail.root@zm07.stanford.edu>
Date: 2010-01-20T17:44:53Z
From: George Chen
Subject: How do I juxtapose two lattice graphs with common X axes such that the X axes line up?
In-Reply-To: <84277943.776231264009388843.JavaMail.root@zm07.stanford.edu>

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