<div dir="ltr">Elias,<div><br></div><div>Com ajuda do Maurício conseguimos usar a função xyplot e plotar todos os gráficos na mesma escala.</div><div><br></div>xyplot(y~x|g, data = xyd, panel="llines")<div><br></div>

<div>Abraço</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 19 de novembro de 2013 08:33, Luís Gustavo <span dir="ltr"><<a href="mailto:lgsilvaesilva@gmail.com" target="_blank">lgsilvaesilva@gmail.com</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Elias,<div><br></div><div>Não saberia fazer usando xyplot, mas com função ggplot2::qplot eu faria assim:</div>

<div><br></div><div><div class="im"><div>xyl = lapply(1:4, function(i)</div></div><div>  data.frame(x=1:100, y=dnorm(1:100,50,10*i), g = paste0("Grupo ",i)))</div>
<div><br></div><div>xyd <- do.call(rbind, xyl)</div><div><br></div><div>library(ggplot2)</div><div>qplot(x, y, data = xyd, geom = "path") + facet_wrap(~g)</div></div><div><br></div><div>Abraço</div></div><div class="gmail_extra">


<br><br><div class="gmail_quote">Em 19 de novembro de 2013 07:51, Elias T Krainski <span dir="ltr"><<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>></span> escreveu:<div><div class="h5">

<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Pessoal,<br>
<br>
##  como fazer repeticao com xyplot para colocar numa mesma janela?<br>
<br>
xyl = lapply(1:4, function(i)<br>
  data.frame(x=1:100, y=dnorm(1:100,50,10*i)))<br>
<br>
require(lattice); require(gridExtra)<br>
grid.arrange(xyplot(y~x, xyl[[1]], panel='llines'),<br>
             xyplot(y~x, xyl[[2]], panel='llines'),<br>
             xyplot(y~x, xyl[[3]], panel='llines'),<br>
             xyplot(y~x, xyl[[4]], panel='llines'), nrow=2)<br>
<br>
##  como evitar repetir essas linhas para cada elemento?<br>
<br>
##  uma forma que sei e' assim:<br>
<br>
do.call(function(...) grid.arrange(...),<br>
  lapply(xyl, function(d) xyplot(y~x,d, panel='llines')))<br>
<br>
## mas neste caso as escalas sao diferentes...<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div></div></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br>Luís Gustavo Silva e Silva<br>
</font></span></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>Luís Gustavo Silva e Silva<br>
</div>