<div dir="ltr">Ivan, obrigado mais uma vez e desculpe a falta de atenção da minha parte.<div>Maurício</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/11/19 Ivan Bezerra Allaman <span dir="ltr"><<a href="mailto:ivanalaman@yahoo.com.br" target="_blank">ivanalaman@yahoo.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Você não explorou o suficiente o argumento "par". Veja se é isto aí!</div><div><br></div>
<div>op <- par(mfrow=c(3,1),</div><div>    mai = c(2,1,0,0),</div><div>    oma = c(3,0,0,0),</div><div>
    pin = c(5.5,1.6),</div><div>    xpd = T)</div><div class="im"><div><br></div><div>tempo<-c(5,7,9,11,13) </div><div>m1A<-rnorm(5,90,4)</div><div>m2A<-rnorm(5,90,4) </div><div>m3A<-rnorm(5,90,4)</div><div>m4A<-rnorm(5,90,4)</div>

<div>plot(m1A ~ tempo,</div></div><div class="im"><div>     axes = F,</div><div>     xlab = '',</div></div><div class="im"><div>     ylab ="%", </div><div>     main = 'Intercepto',</div><div>     type = 'b',</div>
<div>     xlim=c(5,13),</div>
<div>     ylim=c(75,100))</div><div>lines(m2A~tempo,col="red",type="b") </div><div>lines(m3A~tempo,col="green",type="b")</div><div>lines(m4A~tempo,col="black",type="b")</div>

<div>axis(2)</div></div><div>mtext('GRÁFICOS',</div><div>      line = 1)</div><div class="im"><div><br></div><div>m1B<-rnorm(5,90,4)</div><div>m2B<-rnorm(5,90,4)</div><div>m3B<-rnorm(5,90,4)</div><div>m4B<-rnorm(5,90,4) </div>

<div>plot(m1B ~ tempo,</div></div><div class="im"><div>     axes = F,</div><div>     xlab = '',</div></div><div class="im"><div>     ylab ="%", </div><div>     main = 'Tratamento B',</div><div>     type = 'b',</div>
<div>     xlim=c(5,13),</div>
<div>     ylim=c(75,100))</div><div>lines(m2B~tempo,col="red",type="b") </div><div>lines(m3B~tempo,col="green",type="b")</div><div>lines(m4B~tempo,col="black",type="b")</div>

<div>axis(2)</div></div><div>legend(13.5,</div><div>       100,</div><div>       letters[1:4],</div><div>       col = 1:4,</div><div>       lty = rep(1,4),</div><div>       ncol = 1)</div><div class="im"><div><br></div><div>
m1C<-rnorm(5,90,4) </div>
<div>m2C<-rnorm(5,90,4)</div><div>m3C<-rnorm(5,90,4) </div><div>m4C<-rnorm(5,90,4)</div><div>plot(m1C ~ tempo,</div></div><div>     axes = F,</div><div>     xlab = "medidas de tempo",</div><div class="im">
<div>     ylab ="%", </div>
<div>     main = 'Tratamento C',</div><div>     type = 'b',</div><div>     xlim=c(5,13),</div><div>     ylim=c(75,100))</div><div>lines(m2C~tempo,col="red",type="b") </div><div>lines(m3C~tempo,col="green",type="b")</div>

<div>lines(m4C~tempo,col="black",type="b")</div><div>axis(1, at = seq(5, 13, 2))</div><div>axis(2)</div></div><div>mtext('medidas de tempo',</div><div>      line = -15,</div><div>      cex = .8)</div>

<div><br></div><div>(s,f,p)</div><span class="HOEnZb"><font color="#888888"><div>Allaman </div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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/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-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>