<div dir="ltr">Caros,<div>Continuo "quebrando" a cabeça para tentar produzir o gráfico que preciso. Consegui chegar próximo mas ainda não é o ideal.</div><div>No CRM abaixo, o gráfico é construído porém preciso:</div>
<div>1) acrescentar a legenda para cada uma das linhas (estou denominando cada uma delas de m1,m2,m3 e m4);</div><div>2) substituir os números (1, 2 e 3) que aparecem nas divisões em amarelo por nomes (pode ser intercepto, tratamento B e tratamento C, respectivamente).</div>
<div>Alguém teria alguma dica?</div><div><div>m1a<-c(94.1,91.9,92.1,92.8,92.3) </div><div>m2a<-c(96.3,95.7,95.8,95.1,95.6) </div><div>m3a<-c(91.6,91.0,91.1,90.0,88.6) </div><div>m4a<-c(95.9,92.9,100.0,90.9,91.1) </div>
<div>mma=c(m1a,m2a,m3a,m4a)</div><div>mat1=matrix(mma,nrow = 5, ncol = 4, byrow = FALSE,dimnames = list(c("L1","L2","L3","L4","L5"),c("m1","m2","m3","m4")))</div>
<div>m1b<-c(14.1,11.9,16.1,12.8,9.3) </div><div>m2b<-c(16.3,15.7,19.8,19.1,9.6) </div><div>m3b<-c(11.6,11.0,19.1,9.0,8.6) </div><div>m4b<-c(15.9,12.9,10.0,19.9,11.1) </div><div>mmb=c(m1b,m2b,m3b,m4b)</div><div>
mat2=matrix(mmb,nrow = 5, ncol = 4, byrow = FALSE,dimnames = list(c("L1","L2","L3","L4","L5"),c("m1","m2","m3","m4")))</div><div>m1c<-c(34.1,51.9,42.1,32.8,62.3) </div>
<div>m2c<-c(36.3,45.7,35.8,55.1,75.6) </div><div>m3c<-c(51.6,71.0,71.1,70.0,68.6) </div><div>m4c<-c(45.9,42.9,40.0,30.9,51.1) </div><div>mmc=c(m1c,m2c,m3c,m4c)</div><div>mat3=matrix(mmc,nrow = 5, ncol = 4, byrow = FALSE,dimnames = list(c("L1","L2","L3","L4","L5"),c("m1","m2","m3","m4")))</div>
<div><br></div><div>matriz=matrix(c(mat1,mat2,mat3),5,12)</div><div>a=ts(matriz,frequency = 0.5, start = c(2.5, 2))</div><div>require(lattice)</div><div>xyplot(a, screens = c(1,1,1,1,2,2,2,2,3,3,3,3),xlab = "medidas de tempo",ylab = "%",col=c(1:4))</div>
</div><div><br></div><div>Utilizei este exemplo do help como referencia:</div><div><pre style="color:rgb(0,0,0)">### Example with simpler data, few data points
set.seed(1)
z <- ts(cbind(a = 1:5, b = 11:15, c = 21:25) + rnorm(5))
xyplot(z, screens = list(a = "primary (a)", "other (b & c)"),type = list(a = c("p", "h"), b = c("p", "s"), "o"),pch = list(a = 2, c = 3), auto.key = list(type = "o"))</pre>
</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 31 de outubro de 2013 14:32, Maurício Lordêlo <span dir="ltr"><<a href="mailto:mslordelo@gmail.com" target="_blank">mslordelo@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">Éder, obrigado pela atenção.<div>Não consegui. "ts.plot" constrói o gráfico com várias séries porém apenas um.</div>
<div>Minha intenção é produzir três gráficos (como o "ts") com o mesmo eixo x e em cada um deles ter  quatro linhas.</div>
<div>Grato,</div><div>Maurício</div><div> </div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/10/31 Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div dir="ltr">Bom dia,<div><br></div><div>Já testou ts.plot {stats}?</div><div><br></div><div><div>
<font face="courier new, monospace">### para o exemplo dado...</font></div>
<div><div><font face="courier new, monospace"><br></font></div>
<div><font face="courier new, monospace">z <- ts(matrix(rnorm(300), 100, 3), start = c(1961, 1), frequency = 12)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">plot(z)</font></div>


<div><font face="courier new, monospace"><br></font></div></div><div><font face="courier new, monospace">ts.plot(z)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">ts.plot(z, lty=c(1:4), col=c(1:4))</font></div>


</div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### no help tem outro exemplo...</font></div><div><font face="courier new, monospace">?ts.plot</font></div><div><br>


</div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>


Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>
<br></div></div>_______________________________________________<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/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>
</blockquote></div><br></div>