# Re: [R] Overall Legend

From: Spencer Graves <spencer.graves_at_pdf.com>
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))

plot(1: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(3:4)
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")

par(opar)

##############
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)
>
> 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]]
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help

```--
Spencer Graves, PhD
Senior Development Engineer
PDF Solutions, Inc.
333 West San Carlos Street Suite 700
San Jose, CA 95110, USA

spencer.graves@pdf.com
www.pdf.com <http://www.pdf.com>
Tel:  408-938-4420
Fax: 408-280-7915

______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help