Hi, On Aug 29, 2010, at 8:00 PM, Worik R wrote:
> Is there a simple way to put a legend outside the plot area for a > simple > plot? > > I found... (at http://www.harding.edu/fmccown/R/) > > # Expand right side of clipping rect to make room for the legend > *par(xpd=T, mar=par()$mar+c(0,0,0,4))* > > # Graph autos (transposing the matrix) using heat colors, > # put 10% of the space between each bar, and make labels > # smaller with horizontal y-axis labels > barplot(*t*(autos_data), main="Autos", ylab="Total", > col=*heat.colors(3), space=0.1, cex.axis=0.8, las=1, > names.arg=c("Mon","Tue","Wed","Thu","Fri"), cex=0.8*) > > # Place the legend at (6,30) using heat colors > legend(*6, 30,* names(*autos_data*), cex=*0.8*, > fill=*heat.colors(3)*); > > But I do not understand > *par(xpd=T, mar=par()$mar+c(0,0,0,4))* > > Anyway it does not work for me when I change... > > >> y1 <- runif(100, max=1, min=0) >> y2 <- rnorm(100) >> ylim <- c(min(y1, y2), max(y1,y2)) >> plot(x, y1, pch=1, ylim=ylim) >> points(x, y2, pch=2) >> legend("topleft", legend=c("Uniform", "Normal"), pch=c(1,2)) > > To > >> par(xpd=T, mar=par()$mar+c(0,0,0,4)) >> plot(x, y1, pch=1, ylim=ylim) >> points(x, y2, pch=2) >> legend(6, 30, legend=c("Uniform", "Normal"), pch=c(1,2)) > > I do not get to see the legend at all. > I think you want to set xpd to NA (rather than TRUE as in your example) according to the docs for par(). "A logical value or NA. If FALSE, all plotting is clipped to the plot region, if TRUE, all plotting is clipped to the figure region, and if NA, all plotting is clipped to the device region." I have a hind-sight wish that it had been defined originally with "plot", "fig" and "dev" instead of FALSE, TRUE and NA because I am forgetful and I *always* have to look it up. Using the mar argument is a way to manage the margin size around the plot region within the device region. It is handy when you want to plan for extra annotations along the sides of the figure. In your example the new value of par is set to its original except on the right hand side where it picks up 4 extra lines. mar = par()$mar + c(0,0,0,4) Cheers, Ben [[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.
