[R-br] séries em escalas diferentes com lattice

Boa tarde pessoal, Como posso fazer um gráfico de duas séries em diferentes escalas (com dois eixos verticais) usando o lattice? Sei fazer com o plot normal (exemplo abaixo), mas seria muito vantajoso para mim criar uma função panel -- quero fazer vários gráficos, um para cada valor de uma outra variável ("condicionando" com aquela barra vertical). x=1:100 y1 = rpois(100, 20) y2 = rnorm(100, 5) par(mar=c(5,5,4,5)) plot(x, y1, type="l", axes=FALSE, frame=TRUE, ann=FALSE, col=4) axis(4) mtext(text="y1", 4, line=3) par(new=T) plot(x, y2, type='l', lwd=1.5)