Is possible a mini-plot into a big plot with Lattice?

Hi

Hello,

I want to do with Lattice functions (qqmath, histogram) a figure like this below.
n<- 1000
x<- rnorm(n)
qqnorm(x); qqline(x)
op<- par(fig=c(.02,.5,.5,.98), new=TRUE)
hist(x, xlab="", ylab="", main="", axes=FALSE)
box()
par(op)

Is possible?

Something like ... ?

library(lattice)
library(grid)
qqmath(x,
        panel=function(...) {
            panel.qqmath(...)
            panel.abline(a=0, b=1)
            pushViewport(viewport(.02, .5, .48, .48,
                                  just=c("left", "bottom")))
            print(histogram(x, xlab=NULL, ylab=NULL,
                            scales=list(draw=FALSE)),
                  newpage=FALSE)
            popViewport()
        })

Paul

Thanks.
Walmes Zeviani.

  		 	   		

_________________________________________________________________
CANSADO DE ENTRAR EM TODAS AS SUAS DIFERENTES CONTAS DE EMAIL? JUNTE TODAS AGORA.

[[elided Hotmail spam]]
	[[alternative HTML version deleted]]

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

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/

An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20100526/6529d047/attachment.pl>