little subplot in corner

I don't if is this what you want, but:

plot(rnorm(100))
par(fig=c(0, 1/2, 0, 1/2), new=T)
plot(seq(-2,2,length=300),dnorm(seq(-2,2,length=300)),type="l", axes =
F, xlab="", ylab="")

I want to draw a little subplot ("overview") into my detailed plot. It
 should be placed in say the top right corner and have the size of some
 legend (like legend(x="topright", inset=0.03, ...)

 #main plot
 plot(rnorm(100))
 #give little density in corner
 plot(seq(-2,2,length=300),dnorm(seq(-2,2,length=300)),type="l")

 I don't want something like par(mfrow=c(1,2)) as this gives subplots
 of equal size.
 I saw that gridBase is very flexible, but could not find a suitable example.

 Thanks for help,
 Thomas

 ______________________________________________
 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.

Henrique Dallazuanna
Curitiba-Paran?-Brasil
25? 25' 40" S 49? 16' 22" O

perfect, exactly what I was looking for. Thanks a lot!
many eggs to you...
Thomas

Look at the subplot function in the TeachingDemos package (the
cnvrt.coords function in the same package can be used to help in finding
coordinates to place the plot).

Hope this helps,

Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
greg.snow at imail.org
(801) 408-8111
 
 

> -----Original Message-----
> From: r-help-bounces at r-project.org 
> [mailto:r-help-bounces at r-project.org] On Behalf Of Thomas Steiner
> Sent: Thursday, March 20, 2008 9:04 AM
> To: r-help at stat.math.ethz.ch
> Subject: [R] little subplot in corner
> 
> I want to draw a little subplot ("overview") into my detailed 
> plot. It should be placed in say the top right corner and 
> have the size of some legend (like legend(x="topright", 
> inset=0.03, ...)
> 
> #main plot
> plot(rnorm(100))
> #give little density in corner
> plot(seq(-2,2,length=300),dnorm(seq(-2,2,length=300)),type="l")
> 
> I don't want something like par(mfrow=c(1,2)) as this gives 
> subplots of equal size.
> I saw that gridBase is very flexible, but could not find a 
> suitable example.
> 
> Thanks for help,
> Thomas
> 
> ______________________________________________
> 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.
>

Henrique,

Although your solution is perfect, I had later a problem with setting
the background. Perhaps you know how to get this as well:

set.seed(24032008)
plot(rnorm(10),type="l",col="red")
grid()
front=c(0.5, .97, 0.5, .97)
par(fig=front, new=T)#, bg="skyblue" does not work
rec=c(par("usr")[1]+(par("usr")[2]-par("usr")[1])*front[1],
par("usr")[3]+(par("usr")[4]-par("usr")[3])*front[3],
par("usr")[1]+(par("usr")[2]-par("usr")[1])*front[3],
par("usr")[1]+(par("usr")[2]-par("usr")[1])*front[4])
#rect(rec[1],rec[2],rec[3],rec[4],col="yellow")
plot(rnorm(4),type="l",col="blue",xlab="",ylab="")

as you can see it would be good to be able to set the background of
the subfigure. as the par(bg=) does not work, I tried to plot a
rectangle. Just uncomment the send-last line and you will see that the
original plot disappears after some strange rectangle is drawn.

If you have any idea again, it would be evry much appreaciated to let me know.
Thomas

PS: to see my first attempts, look at
http://commons.wikimedia.org/wiki/Image:Eurusd-id.png

Perhaps:

set.seed(24032008)
plot(rnorm(10),type="l",col="red")
grid()
front=c(0.5, .97, 0.5, .97)
par(fig=front, new=T)#, bg="skyblue" does not work
set.seed(24032008)
x <- rnorm(4)
plot(x,type="l",col="blue",xlab="",ylab="", bg="yellow")
rect(par("usr")[1], par("usr")[3], par("usr")[2], par("usr")[4], col="yellow")
lines(x, col="blue")

Henrique,

 Although your solution is perfect, I had later a problem with setting
 the background. Perhaps you know how to get this as well:

 set.seed(24032008)
 plot(rnorm(10),type="l",col="red")
 grid()
 front=c(0.5, .97, 0.5, .97)
 par(fig=front, new=T)#, bg="skyblue" does not work
 rec=c(par("usr")[1]+(par("usr")[2]-par("usr")[1])*front[1],
 par("usr")[3]+(par("usr")[4]-par("usr")[3])*front[3],
 par("usr")[1]+(par("usr")[2]-par("usr")[1])*front[3],
 par("usr")[1]+(par("usr")[2]-par("usr")[1])*front[4])
 #rect(rec[1],rec[2],rec[3],rec[4],col="yellow")
 plot(rnorm(4),type="l",col="blue",xlab="",ylab="")

 as you can see it would be good to be able to set the background of
 the subfigure. as the par(bg=) does not work, I tried to plot a
 rectangle. Just uncomment the send-last line and you will see that the
 original plot disappears after some strange rectangle is drawn.

 If you have any idea again, it would be evry much appreaciated to let me know.

Thomas


 PS: to see my first attempts, look at
 http://commons.wikimedia.org/wiki/Image:Eurusd-id.png

Henrique Dallazuanna
Curitiba-Paran?-Brasil
25? 25' 40" S 49? 16' 22" O

Wonderful, thanks a lot.
I just have to call the plot first and then the rect (and then I can
plot it again)... %D
Have a nice day,
Thomas