<div dir="ltr">Ivan, obrigado pela atenção.<div>Na sua dica, tentei e não consegui:</div><div>1. diminuir a distância entre os gráficos;</div><div>2. acrescentar uma legenda indicando os quatro modelos;</div><div>3. acrescentar um título (único) para os três gráficos, mantendo os nomes que separam cada gráfico.</div>
<div>Veja o CMR:</div><div><div><br></div><div>par(mfrow=c(3,1))</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,axes = F,xlab = '',ylab ="%", main = 'Intercepto',type = 'b',xlim=c(5,13),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><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,axes = F,xlab = '',ylab ="%", main = 'Tratamento B',type = 'b',xlim=c(5,13),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>
<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,axes = F,xlab = "medidas de tempo",ylab ="%", main = 'Tratamento C',type = 'b',xlim=c(5,13),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><br></div></div><div>Agradeço qualquer sugestão.</div><div>Maurício</div><div><br></div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 15 de novembro de 2013 08:44, Ivan Bezerra Allaman <span dir="ltr"><<a href="mailto:ivanalaman@yahoo.com.br" target="_blank">ivanalaman@yahoo.com.br</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">É isso jovem?<div><br></div><div><div>x <- seq(1,10)</div><div>y1 <- rnorm(10)</div><div>y2 <- rnorm(10)</div>
<div>y3 <- rnorm(10)</div><div><br></div><div>par(mfrow=c(3,1))</div><div>plot(y1 ~ x, </div>
<div>     axes = F,</div><div>     xlab = '',</div><div>     ylab = '',</div><div>     main = 'A',</div><div>     type = 'l')</div><div>axis(2)</div><div>plot(y2 ~ x,</div><div>     axes = F,</div>

<div>     xlab = '',</div><div>     ylab = '',</div><div>     main = 'B',</div><div>     type = 'l')</div><div>axis(2)</div><div>plot(y3 ~ x,</div><div>     axes = F,</div><div>     xlab = '',</div>

<div>     ylab = '',</div><div>     main = 'C',</div><div>     type = 'l')</div><div>axis(1)</div><div>axis(2)</div><div><br></div><div> (s,f,P)</div></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>