<div dir="ltr">Manoel, desculpe a demora em dar um retorno. Fiquei envolvido com outras atividades e me faltou tempo para isso.<div>Tentei usar o que recomendou mas não deu certo. Eu preciso de uma gráfico dividido em três partes, com o mesmo eixo x. </div>
<div>Nos comandos que passou, aparecem 12 linhas juntas. Preciso que fiquem separadas em três grupos (tratamentos) com quatro linhas cada (modelos) e uma legenda única.</div><div>No CMR abaixo, m1A refere-se aos resultados obtidos pro tratamento A através do modelo 1, m3B refere-se aos resultados obtidos pro tratamento B através do mesmo modelo 3, etc.</div>
<div>A legenda única deve conter a indicação dos modelos. A separação dos painéis do gráfico devem ser os tratamentos.</div><div><div>m1A<-c(94.6,92.6,92.6,92.4,92.6)</div><div>m2A<-c(96.1,93.9,95.1,92.6,92.5) </div>
<div>m3A<-c(91.5,93.8,93.8,94.3,94.6)</div><div>m4A<-c(95.2,94.4,98.1,95.9,92.4) </div><div>#mA=c(m1A,m2A,m3A,m4A)</div><div>mat1=matrix(cbind(m1A,m2A,m3A,m4A),nrow = 5, ncol = 4, byrow = FALSE,dimnames = list(c("L1","L2","L3","L4","L5"),c("m1","m2","m3","m4")))</div>
<div>m1B<-c(94.1,91.9,92.1,92.8,92.3) </div><div>m2B<-c(96.3,95.7,95.8,95.1,95.6) </div><div>m3B<-c(91.6,91.0,91.1,90.0,88.6) </div><div>m4B<-c(95.9,92.9,100.0,90.9,91.1) </div><div>#mm2=c(m3a,m1a,m4a,m2a)</div>
<div>mat2=matrix(cbind(m1B,m2B,m3B,m4B),nrow = 5, ncol = 4, byrow = FALSE,dimnames = list(c("L1","L2","L3","L4","L5"),c("m1","m2","m3","m4")))</div>
<div>m1C<-c(92.8,91.4,91.8,92.7,92.3) </div><div>m2C<-c(96.4,95.6,96.1,95.3,96.1) </div><div>m3C<-c(88.5,87.1,84.6,83.0,84.1) </div><div>m4C<-c(95.2,91.8,99.0,89.4,84.8) </div><div>mat3=matrix(cbind(m1C,m2C,m3C,m4C),nrow = 5, ncol = 4, byrow = FALSE,dimnames = list(c("L1","L2","L3","L4","L5"),c("m1","m2","m3","m4")))</div>
<div>matriz=matrix(c(mat1,mat2,mat3),nrow =5,ncol =12, byrow = FALSE,dimnames = list(c("L1","L2","L3","L4","L5"),c("m1","m2","m3","m4","m1","m2","m3","m4","m1","m2","m3","m4")))<br>
</div><div>a=ts(matriz,frequency = 0.5, start = c(3, 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>Quando faço</div><div>xyplot(a, screens = list("Tratamento A", "Tratamento B","Tratamento C"),xlab="medidas de tempo",ylab = "%",col=c(1:4),superpose = TRUE)<br>
</div><div>consigo acrescentar os nomes dos tratamentos e uma legenda (que não é a adequada), porém observo que as linhas não estão corretas, pois não conferem com a do comando anterior.</div><div><br></div><div>Digitei estes dados em forma de um dataframe que estão no link abaixo</div>
<div><a href="https://www.dropbox.com/s/nnkbe8n2sc88esm/dados_grafico.txt">https://www.dropbox.com/s/nnkbe8n2sc88esm/dados_grafico.txt</a><br></div><div><br></div><div>Neste caso, tentei</div><div><div>dados=read.table("dados_grafico.txt",sep="",header=T)</div>
<div>require(lattice)<br></div><div>graf=xyplot(acerto ~ tempo | tratamento, data = dados,groups = Modelo,panel = "panel.superpose",panel.groups = "panel.linejoin",xlab = "tempo",</div><div>key = list(lines = Rows(trellis.par.get("superpose.line"),c(1:3, 1)),text = list(lab = as.character(unique(dados$Modelo))),columns = 4, title = "Modelos"))</div>
</div><div>graf</div><div class="gmail_extra">Também sem sucesso.</div><div class="gmail_extra">Agradeço qualquer ajuda.</div><div class="gmail_extra">Maurício<br><br><br><br><div class="gmail_quote">Em 4 de novembro de 2013 12:56, Manoel Galdino <span dir="ltr"><<a href="mailto:mcz.fea@gmail.com" target="_blank">mcz.fea@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr">Veja se é mais ou menos isso que você quer:<div>
<br></div><div><div>matriz <- as.data.frame(matriz)</div><div>names(matriz) <- paste("series", 1:12)</div><div><br></div><div>matriz$tempo <- 1:nrow(matriz)</div>
<div>meltenMatriz <- melt(matriz, id='tempo' )</div><div>meltenMatriz$lbls <- meltenMatriz$variable</div><div><br></div><div>p <- ggplot(meltenMatriz, aes(x = tempo, y = value, group=variable)) + geom_line(aes(colour=variable))</div>
<div>direct.label(p, </div><div> list("top.points", rot=10, cex=1, </div><div> fontface="plain", fontfamily="serif", alpha=0.9))</div></div><div><br></div><div>É possível colocar os labels em outras posições. Dê um google por ggplo2 direc labels</div>
<div><br></div><div>Ou colocar as legendas como caixinhas ao lado do plot. Nesse caso, basta excluir o comando direct.label e rodar print(p), ou apenas p</div><div><br></div><div>É possível também configurar as cores. </div>
<div><br></div><div>abçs</div><span class=""><font color="#888888"><div>Manoel</div><div><br></div></font></span></div><div class=""><div class="h5"><div class="gmail_extra"><br><br><div class="gmail_quote">2013/11/4 Maurício Lordêlo <span dir="ltr"><<a href="mailto:mslordelo@gmail.com" target="_blank">mslordelo@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr">Obrigado Manoel. Vou dar uma olhada e tentarei adequar.<div>
Qualquer dúvida retornarei.</div><div>Abraço</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 3 de novembro de 2013 21:35, Manoel Galdino <span dir="ltr"><<a href="mailto:mcz.fea@gmail.com" target="_blank">mcz.fea@gmail.com</a>></span> escreveu:<div>
<div><br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div dir="ltr"><div><div>Maurício,<br><br>estou sem tempo agora, mas acho que dá pra fazer o que você quer com o ggplot2.<br>
</div>No meu blog, <a href="http://prafalardecoisas.wordpress.com/2013/11/03/ugly-bar-plot-graphic-and-a-simple-alternative-rstats/" target="_blank">fiz um gráfico parecido</a>, coloquei inclusive o sript lá. A única diferença para o seu gráfico é que não tenho três paineis. No ggplot2, pra condicionar em paineis, usa-seo comando facet_wrap(). Creio que isso faria o job. Dê uma olhada. Se tiver um tempo, amanhã tento implementar uma solução.<br>
<br>abc<br></div>M<br><br></div><div class="gmail_extra"><div><div><br><br><div class="gmail_quote">2013/11/3 Maurício Lordêlo <span dir="ltr"><<a href="mailto:mslordelo@gmail.com" target="_blank">mslordelo@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><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>### 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:<div>
<div><br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style: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:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div><div><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></div></div><br></div>
<br>_______________________________________________<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><br clear="all"><br></div></div><span><font color="#888888">-- <br>
Manoel Galdino<br>
<a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/galdinomcz/</a><br>
</font></span></div>
<br>_______________________________________________<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></div></div><br></div>
<br>_______________________________________________<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><br clear="all"><div><br></div>-- <br>
Manoel Galdino<br><a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/galdinomcz/</a><br>
</div>
</div></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></div>