Tim Clark wrote:> Dear List,
>
> I am trying to plot a color.legend() in the right outer margin of my device
region. I have read multiple threads on the subject and still can't get it
right. I have stolen an example from one of the threads to demonstrate my
problem. I have extended the outer margin using par(oma()), and have used
par(xpd=NA) to tell it to plot in the device region. I can get the legend to
plot in the figure region but it will not plot in the outer margin. What am I
doing wrong? Example follows with the legend in the figure region. I would
like it more to the right in the device region.
>
> Thank,
>
> Tim
>
> library(TeachingDemos)
> op <- par(mfrow = c(3,3), ## split region
> oma = c(0,0,4,12) + 0.1, ## create outer margin
> mar = c(5,4,2,2) + 0.1) ## shrink some margins
> plot(1:10, main = "a", pch = 1:2, col= 1:2)
> plot(1:10, main = "b", pch = 1:2, col= 1:2)
> tmp1 <- cnvrt.coords( 0.5, 0, input='plt' )$tdev # save location
for mtext
> plot(1:10, main = "c", pch = 1:2, col= 1:2)
> plot(1:10, main = "d", pch = 1:2, col= 1:2)
> plot(1:10, main = "e", pch = 1:2, col= 1:2)
> plot(1:10, main = "f", pch = 1:2, col= 1:2)
> plot(1:10, main = "g", pch = 1:2, col= 1:2)
> plot(1:10, main = "h", pch = 1:2, col= 1:2)
> plot(1:10, main = "i", pch = 1:2, col= 1:2)
> ## title
> mtext("My Plots", side = 3, outer = TRUE, font = 2, line = 1, cex
= 1.2,at=tmp1$x)
>
>
> ## draw legend
> #Set colors
> Satelite.Palette <-
colorRampPalette(c("blue3","cyan","aquamarine","yellow","orange","red"))
> mycol<-Satelite.Palette(101)
>
> #Add legend
> BL<-unlist(corner.label(x=-1,y=-1,figcorner=FALSE)) #Coordinates
for bottom left corner of plot
> TR<-unlist(corner.label(x=1,y=1,figcorner=FALSE)) #Coordinates
for top right corner of plot
>
> par(xpd=NA) #Plots to the device region (outer margin)
> library(plotrix)
> col.labels<-seq(0,100,20)
>
color.legend(TR[1],BL[2],TR[1]+1,TR[2],col.labels,mycol,align="rb",gradient="y")
>
> #Reset par
> par(op)
>
The par(xpd=...) only applies to the last plot. I can't
think offhand how to avoid that. I would use Paul Murrell's
handy layout() function. Something like this (you'll have
to adjust margins, etc)
m <- matrix(c(1:9,10,10,10), 3, 4)
nf <- layout(m)
layout.show(nf)
plot(1:10, main = "a", pch = 1:2, col= 1:2)
plot(1:10, main = "b", pch = 1:2, col= 1:2)
plot(1:10, main = "c", pch = 1:2, col= 1:2)
plot(1:10, main = "d", pch = 1:2, col= 1:2)
plot(1:10, main = "e", pch = 1:2, col= 1:2)
plot(1:10, main = "f", pch = 1:2, col= 1:2)
plot(1:10, main = "g", pch = 1:2, col= 1:2)
plot(1:10, main = "h", pch = 1:2, col= 1:2)
plot(1:10, main = "i", pch = 1:2, col= 1:2)
plot(0:1, 0:1, type="n", axes=F, xlab="", ylab="")
color.legend(.2,.2,.8,.8, col.labels, mycol, align="rb",
gradient="y")
See ?layout
-Peter Ehlers
>
>
>
>
> Tim Clark
> Department of Zoology
> University of Hawaii
>
> ______________________________________________
> 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.
>
>