R help - Jan 2010 - How do I juxtapose two lattice graphs with common X axes such that the X axes line up?

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

Hi,

try c.trellis() from the latticeExtra package.

HTH,

baptiste


2010/1/20 George Chen <glchen at 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
>
> ______________________________________________
> R-help at 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.
>

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]]