[R-br] xyplot e repeticao

[Elias T Krainski]

Pessoal,

##  como fazer repeticao com xyplot para colocar numa mesma janela?

xyl = lapply(1:4, function(i)
   data.frame(x=1:100, y=dnorm(1:100,50,10*i)))

require(lattice); require(gridExtra)
grid.arrange(xyplot(y~x, xyl[[1]], panel='llines'),
              xyplot(y~x, xyl[[2]], panel='llines'),
              xyplot(y~x, xyl[[3]], panel='llines'),
              xyplot(y~x, xyl[[4]], panel='llines'), nrow=2)

##  como evitar repetir essas linhas para cada elemento?

##  uma forma que sei e' assim:

do.call(function(...) grid.arrange(...),
   lapply(xyl, function(d) xyplot(y~x,d, panel='llines')))

## mas neste caso as escalas sao diferentes...