<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Olá Marcos <br>
<br>
Talvez este exemplo lhe ajude<br>
<br>
library(lattice)<br>
<br>
# Data<br>
w <- as.matrix(dist(Loblolly))<br>
x <- as.matrix(dist(HairEyeColor))<br>
y <- as.matrix(dist(rock))<br>
z <- as.matrix(dist(women))<br>
<br>
# Plot assignments<br>
pw <- levelplot(w, scales = list(draw = FALSE)) # "scales..."
removes axes<br>
px <- levelplot(x, scales = list(draw = FALSE))<br>
py <- levelplot(y, scales = list(draw = FALSE))<br>
pz <- levelplot(z, scales = list(draw = FALSE))<br>
<br>
# Plot prints<br>
print(pw, split = c(1, 1, 2, 2), more = TRUE)<br>
print(px, split = c(2, 1, 2, 2), more = TRUE)<br>
print(py, split = c(1, 2, 2, 2), more = TRUE)<br>
print(pz, split = c(2, 2, 2, 2), more = FALSE) # more = FALSE is
redundant<br>
<br>
retirado de
<a class="moz-txt-link-freetext" href="http://stackoverflow.com/questions/2540129/lattice-multiple-plots-in-one-window">http://stackoverflow.com/questions/2540129/lattice-multiple-plots-in-one-window</a><br>
<br>
saudações<br>
<br>
<div class="moz-cite-prefix">Em 13/05/2016 00:14, marcos paulo
escreveu:<br>
</div>
<blockquote cite="mid:BLU179-W177B236A6AB230A15BD101EE740@phx.gbl"
type="cite">
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style>
<div dir="ltr"><font color="#000000" face="Comic Sans
MS,sans-serif">Pessoal estou querendo plotar 4 gráficos na
mesma janela gráfica,</font>
<div><font color="#000000" face="Comic Sans MS,sans-serif">usando
o pacote lattice pra confecção desses plots. Porém não estou
conseguindo colocar mais que dois na mesma janela, u</font><span
style="font-family: 'Comic Sans MS', sans-serif; font-size:
12pt;">sando a função print.</span></div>
<div><br>
</div>
<div><font color="#000000" face="Comic Sans MS,sans-serif">Segue
exemplo:</font></div>
<div><font color="#000000" face="Comic Sans MS,sans-serif"><br>
</font></div>
<div><font color="#000000" face="Comic Sans MS,sans-serif">
<div>g1<- xyplot(NDVI~DAE|Cultivar, data=dados, col=1,
layout=c(5,1), </div>
<div> type=c("p","r"), </div>
<div> xlab="DAE", ylab="NDVI",</div>
<div> main='Vitrine 2014/2016',</div>
<div> strip=strip.custom(bg="gray90"))</div>
<div><br>
</div>
<div>g2<-xyplot(NDVI~IAF|Cultivar, data=dados, col=1,
layout=c(5,1), </div>
<div> type=c("p","r"), </div>
<div> xlab="IAF", ylab="NDVI",</div>
<div> strip=strip.custom(bg="gray90"))</div>
<div><br>
</div>
<div><br>
</div>
<div>g3<-xyplot(Chl~DAE|Cultivar, data=dados, col=1,
layout=c(5,1), </div>
<div> type=c("p","r"), </div>
<div> xlab="DAE", ylab="Clorofila",</div>
<div> <span style="font-size: 12pt;">
strip=strip.custom(bg="gray90"))</span></div>
<div><br>
</div>
<div>g4<-xyplot(Chl~IAF|Cultivar, data=dados, col=1,
layout=c(5,1), </div>
<div> type=c("p","r"), </div>
<div> xlab="IAF", ylab="Clorofila",</div>
<div> strip=strip.custom(bg="gray90"))</div>
<div> </div>
<div>print(g1, split=c(1,1,1,4), more=TRUE)</div>
<div>print(g2, split=c(1,2,1,4))</div>
<div>print(g3, split=c(1,3,1,4))</div>
<div>print(g4, split=c(1,4,1,4))</div>
</font>
<div><br>
</div>
<div><span style="font-family: 'Comic Sans MS', sans-serif;
font-size: 12pt;">Cordialmente, Marcos Paulo.</span></div>
<br>
<div style="text-align:center;"><span
style="background-color:rgb(255, 255, 255);"><b><font
color="#008a17"><span style="font-size:12pt;">Técnico
Agrícola em Zootecnia</span><br>
<span style="font-size:12pt;">Bacharel em Agronomia </span></font></b></span></div>
<div style="text-align:center;"><span
style="background-color:rgb(255, 255, 255);"><b><font
color="#008a17"><span style="font-size:12pt;"><br>
</span></font></b></span></div>
<div style="text-align:center;"><font color="#008a17"><span
style="background-color:rgb(255, 255, 255);"><b>Mestrando
em Produção Vegetal - Universidade Federal de Goiás</b></span></font></div>
<div style="text-align:center;">
<div style="line-height:22px;background-color:rgb(255, 255,
255);"><font class="ecxApple-style-span"
style="line-height:normal;" color="#008a17"
face="Calibri" size="3"><b>Estagiário de Pós-Graduação
da Embrapa Arroz e Feijão/CNPAF-Santo Antônio de
Goiás-GO</b></font></div>
<div style="line-height:22px;background-color:rgb(255, 255,
255);"><font class="ecxApple-style-span"
style="line-height:normal;" color="#008a17"
face="Calibri" size="3"><b><br>
</b></font></div>
<div style="line-height:22px;background-color:rgb(255, 255,
255);"><span style="line-height:normal;"><font
color="#008a17" face="Calibri" size="3"><b>Contato:
(62) 85075783</b></font></span></div>
<div style="line-height:22px;color:rgb(42, 42,
42);font-family:'Segoe UI', Tahoma, Verdana, Arial,
sans-serif;font-size:15px;background-color:rgb(255, 255,
255);"><span style="line-height:normal;font-family:'Comic
Sans MS';font-size:10pt;"><br>
</span></div>
</div>
<div style="text-align:center;"><a moz-do-not-send="true"
href="http://lattes.cnpq.br/4322347592884852"
target="_blank">http://lattes.cnpq.br/4322347592884852</a></div>
</div>
<div id="DDB4FAA8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br>
<table style="border-top: 1px solid #aaabb6;">
<tbody>
<tr>
<td style="width: 55px; padding-top: 18px;"><a
moz-do-not-send="true"
href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail"
target="_blank"><img moz-do-not-send="true"
src="https://ipmcdn.avast.com/images/2016/icons/icon-envelope-tick-round-orange-v1.png"></a></td>
<td style="width: 470px; padding-top: 20px; color:
#41424e; font-size: 13px; font-family: Arial,
Helvetica, sans-serif; line-height: 18px;">Livre de
vírus. <a moz-do-not-send="true"
href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail"
target="_blank" style="color: #4453ea;">www.avast.com</a>.
</td>
</tr>
</tbody>
</table>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</pre>
</blockquote>
<br>
</body>
</html>