Re: [R] Overall Legend

From: Spencer Graves <>
Date: Mon 22 Aug 2005 - 14:08:58 EST

          Since I haven't seen a reply to this post, I will attempt one. Have you considered something like the following:

opar <- par(mfrow=c(2,2))

lines(2:1, col="blue")
legend("top", legend=c("black", "blue"),

        text.col=c("black", "blue"))
# with a legend on one of the four plots

plot(5:6, col="blue")

# Or using mtext to construct a legend in the outer margin mtext("black", side=3,line=-2, at=.4, outer=TRUE,col="black") mtext("blue", side=3,line=-2, at=.6, outer=TRUE,col="blue")


RSiteSearch("one legend for multiple plots") identified the following that discusses placing a single legend with trellis graphics:

          Also, have you checked Venables and Ripley (2002) Modern Applied Statistics with S (Springer)? I don't have a copy handy, but if my memory is correct, they have something relevant to this question.

	  Perhaps someone else will reply with better information than this.
	  spencer graves

Juned Siddique wrote:

> Hello. I am using R version 2.1.1 on Windows 2000.
> I am using a par(mfrow=c(2,2)) statement to produce 4 plots on one screen.
I want a single horizontal legend to appear at the top of the four plots. My code is something like this:
> par(mfrow=c(2,2))
> plot(x,y1)
> lines(x,y2)
> lines(x,y3)
> plot(x,z1)
> lines(x,z2)
> lines(x,z3)
> plot(x,t1)
> lines(x,t2)
> lines(x,t3)
> plot(x,w1)
> lines(x,w2)
> lines(x,w3)
> Instead of the statement:
> legend(x="right", c("Bias Squared","Variance","Mean Squared Error"),
lty=c(2,1,3), col=c("green","blue","red"), lwd="2",cex=0.5,inset = 0.05)
> appearing within each plot, I would like it to appear at the top of
the graph because it applies to all four plots. Any help would be appreciated. Thank you.
> -Juned
> [[alternative HTML version deleted]]
> ______________________________________________
> mailing list
> PLEASE do read the posting guide!

Spencer Graves, PhD
Senior Development Engineer
PDF Solutions, Inc.
333 West San Carlos Street Suite 700
San Jose, CA 95110, USA <>
Tel:  408-938-4420
Fax: 408-280-7915

______________________________________________ mailing list
PLEASE do read the posting guide!
Received on Mon Aug 22 14:15:45 2005

This archive was generated by hypermail 2.1.8 : Sun 23 Oct 2005 - 15:40:32 EST