R help - Jul 2008 - Backgrounds in Multiple Plots made with "fig"

The following code was adapted from an example Vincent Zoonekynd gave on his
web site http://zoonek2.free.fr/UNIX/48_R/03.html:

n <- 1000
x <- rnorm(n)
qqnorm(x)
qqline(x, col="red")
op <- par(fig=c(.02,.5,.5,.98), new=TRUE)
hist(x, probability=T,
     col="light blue", xlab="", ylab="",
main="", axes=F)
lines(density(x), col="red", lwd=2)
box()
par(op)

How can I make the background in the small box in the upper left-hand corner
be a different color than the background in the main plot and erase any of
the main plot that happens to be behind the box?

Tom
 



-- 
View this message in context:
http://www.nabble.com/Backgrounds-in-Multiple-Plots-made-with-%22fig%22-tp18302602p18302602.html
Sent from the R help mailing list archive at Nabble.com.

Hi


Tom La Bone wrote:
> The following code was adapted from an example Vincent Zoonekynd gave on
his
> web site http://zoonek2.free.fr/UNIX/48_R/03.html:
> 
> n <- 1000
> x <- rnorm(n)
> qqnorm(x)
> qqline(x, col="red")
> op <- par(fig=c(.02,.5,.5,.98), new=TRUE)
> hist(x, probability=T,
>      col="light blue", xlab="", ylab="",
main="", axes=F)
> lines(density(x), col="red", lwd=2)
> box()
> par(op)
> 
> How can I make the background in the small box in the upper left-hand
corner
> be a different color than the background in the main plot and erase any of
> the main plot that happens to be behind the box?

Here's one way ...

n <- 1000
x <- rnorm(n)
qqnorm(x)
qqline(x, col="red")
op <- par(fig=c(.02,.5,.5,.98), new=TRUE)
plot.new()
usr <- par("usr")
rect(usr[1], usr[3], usr[2], usr[4], col="wheat")
par(new=TRUE)
hist(x, probability=T,
     col="light blue", xlab="", ylab="",
main="", axes=F)
lines(density(x), col="red", lwd=2)
box()
par(op)


Paul

> Tom
>  
> 
> 
> 
-- 
Dr Paul Murrell
Department of Statistics
The University of Auckland
Private Bag 92019
Auckland
New Zealand
64 9 3737599 x85392
paul at stat.auckland.ac.nz
http://www.stat.auckland.ac.nz/~paul/