ok benilton, obrigado, mas a intenção de usar a libraria rainbow e para fazer um grafico como esse daqui que conseguí num paper do R Journal:<div><br><div>#os dados ElNinosmooth vem incluidos no pacote rainbow</div><div><br>
</div><div>plot(ElNinosmooth, plot.type = 'functions', plotlegend = TRUE)</div><div><br></div><div>Então eu quero fazer um grafico similar, onde as diferentes series sejam os anos da serie ( de cores diferentes), </div>
<div>o eixo<i> x =</i> meses do ano; e o eixo <i>y</i>=QVENDA. </div><div><br></div><div>#eu tentei transformar meus dados numa fts assim:</div><div><br></div><div>OCTOPUS.fts <- fts(OCTOPUS$MONTH, OCTOPUS$QVENDA, frequency = 12, start = 2003, xname= 'Month', yname = 'Tonnes')</div>
<div><br></div><div># e logo tentei fazer o grafico como o do exemplo assim:</div><div><br></div><div>plot(OCTOPUS.fts, plot.type = 'functions', plotlegend = TRUE)</div><div><br></div><div># mas deu-me um error </div>
<div><span class="Apple-style-span" style="border-collapse:separate;font-family:Arial;font-size:medium"><span class="Apple-style-span" style="font-family:'Lucida Console';font-size:13px;line-height:15px;text-align:-webkit-left;white-space:pre-wrap"><pre tabindex="0" class="GJWPQFQDK4" style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-bottom:0px;line-height:1.2">
<span class="GJWPQFQDF4">Error in is.language(x) : 'x' is missing</span></pre><pre tabindex="0" class="GJWPQFQDK4" style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-bottom:0px;line-height:1.2">
<span class="GJWPQFQDF4"><br></span></pre><pre tabindex="0" class="GJWPQFQDK4" style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-bottom:0px;line-height:1.2">
<span class="GJWPQFQDF4">mesmo assim saiu um grafico, nem com cores nem nada de jeito!</span></pre><pre tabindex="0" class="GJWPQFQDK4" style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-bottom:0px;line-height:1.2">
<span class="GJWPQFQDF4"><br></span></pre><pre tabindex="0" class="GJWPQFQDK4" style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-bottom:0px;line-height:1.2">
Alguma dica, ajuda? </pre></span></span></div><div><br></div><div>obrigado</div><div><br></div><div>Carlos<br><br><div class="gmail_quote">El 4 de abril de 2012 17:37, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Carlos,<br>
<br>
Eu nao verifiquei detalhes do teu conjunto de dados, entretanto,<br>
imagino que necessites formata-lo apropriadamente (uma formatacao<br>
distinta para cada questao).<br>
<br>
Para a primeira, assumindo que teu interesse seja 'QVENDA', eu<br>
comecaria com algo como:<br>
<br>
dadosOriginais = read.csv('OCTOPUS.csv')<br>
library(reshape2)<br>
porBarco = dcast(dadosOriginais, DAY + MONTH + YEAR ~ CodEmbarc,<br>
value.var='QVENDA', fun.aggregate=mean)<br>
x0 = 1:nrow(porBarco)<br>
y0 = as.matrix(porBarco[, -(1:3)])<br>
library(rainbow)<br>
obj0 = fts(x0, y0)<br>
plot(obj0)<br>
<br>
E usaria a mesma estrategia para os demais.<br>
<br>
benilton<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><br clear="all"><div><br></div>-- <br>Carlos A. Pombo Sonderblohm<br>PhD Student on Marine Science (Fisheries)<br>Faculdade de Ciências e Tecnología<br>Universidade do Algarve, <br>Campus de Gambelas<br>
8005-139 Faro<br>Portugal<br>Tef. 289 800 905 ext. 7605<br><br><br>
</div></div>