<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Elias,<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Como o eixo y é densidade para todos os gráficos e o x tem domínio comum, você pode usar a xyplot assim.<br>
</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br><span style="font-family:courier new,monospace">require(lattice)<br>require(plyr)<br><br>xyl <- lapply(1:4, function(i)<br>  data.frame(x=1:100, y=dnorm(1:100,50,10*i)))<br>
names(xyl) <- seq_along(xyl)<br><br>xyl <- ldply(xyl)<br>str(xyl)<br><br>xyplot(y~x|.id, xyl, panel='llines',<br>       scales=list(y=list(relation="free")))</span><br></div><div class="gmail_extra">
<br><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">À disposição.<br>Walmes.<br></div><br></div></div>