<p class="MsoNormal"><span lang="PT-BR" style="font-size:10.0pt;line-height:115%;font-family:"Arial","sans-serif";color:#222222;background:white">Oi Elias,</span></p><p class="MsoNormal"><span lang="PT-BR" style="font-size:10.0pt;line-height:115%;font-family:"Arial","sans-serif";color:#222222;background:white"><br>


</span></p><p class="MsoNormal"><span lang="PT-BR" style="font-size:10.0pt;line-height:115%;font-family:"Arial","sans-serif";color:#222222;background:white">Tenta o seguinte:</span></p><p class="MsoNormal">


<span lang="PT-BR" style="font-size:10.0pt;line-height:115%;font-family:"Arial","sans-serif";color:#222222;background:white"><br></span></p><p class="MsoNormal"><span lang="PT-BR" style="font-size:10.0pt;line-height:115%;font-family:"Arial","sans-serif";color:#222222;background:white">library(gridExtra)</span></p>


<p class="MsoNormal"><span lang="PT-BR" style="font-size:10.0pt;line-height:115%;font-family:"Arial","sans-serif";color:#222222;background:white">library(lattice)</span></p><p class="MsoNormal"><span lang="PT-BR" style="font-size:10.0pt;line-height:115%;font-family:"Arial","sans-serif";color:#222222;background:white"><br>


</span></p><p class="MsoNormal"><span lang="PT-BR" style><font color="#222222" face="Arial, sans-serif"></font></span></p><p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif">x <- seq(pi/4, 5 * pi, length.out = 100)</font></p>


<p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif">y <- seq(pi/4, 5 * pi, length.out = 100)</font></p><p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif">r <- as.vector(sqrt(outer(x^2, y^2, "+")))</font></p>


<p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif"><br></font></p><p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif">grid <- expand.grid(x=x, y=y)</font></p>


<p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif">grid$z <- cos(r^2) * exp(-r/(pi^3))</font></p><p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif"><br>


</font></p><p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif">plot1<-levelplot(seu plot)</font></p><p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif">plot2<-levelplot(seu outro plot)</font></p>


<p class="MsoNormal" style="line-height:14px"><font color="#222222" face="Arial, sans-serif"><br></font></p><p class="MsoNormal"><font color="#222222" face="Arial, sans-serif"><span style="line-height:14px">grid.arrange(plot1,plot2)</span></font></p>


<p class="MsoNormal"><font color="#222222" face="Arial, sans-serif"><span style="line-height:14px"><br></span></font></p><p class="MsoNormal"><font color="#222222" face="Arial, sans-serif"><span style="font-family:arial;background-color:transparent">Att,</span></font></p>


<p class="MsoNormal"><font color="#222222" face="Arial, sans-serif"><span style="font-family:arial;background-color:transparent">-- </span></font></p><p></p><font size="4"><span style="color:rgb(255,0,0)">Carolina Ramos Caiado Gomes</span></font><div>



<font face="verdana, sans-serif">Mestranda em Ecologia e Evolução - UFG</font></div><div><font face="verdana, sans-serif">Laboratório de Ecologia de Insetos</font></div><div><font face="verdana, sans-serif"><font size="1"></font><span style="font-size:13px"><span style="font-size:xx-small"><a href="tel:%2B55%2062%208215%203595" value="+556282153595" target="_blank">+55 62 8215 3595</a></span></span></font></div>