<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:12pt"><div><span>Obrigado pela dica Walmes, ela definitivamente me ajudou a resolver o problema.</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span>A única mudança que tive que fazer foi no cálculo das médias, pois além do dia eu também precisava que fosse por variável. Nesse caso eu acabei usando o plyr:</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica,
Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><span></span></div><div style="background-color: transparent;">db = ddply(da, .(j, variable), summarise, value = mean(value))</div><div><span style="font-size: 12pt;"> </span><br></div><div>Saudações,<br>--<br>Thiago V. dos Santos<br>PhD student<br>Land and Atmospheric Science<br>University of Minnesota<br>http://www.laas.umn.edu/CurrentStudents/MeettheStudents/ThiagodosSantos/index.htm<br>Phone: (612) 323 9898</div><div class="yahoo_quoted" style="display: block;"> <br> <br> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div style="font-family: HelveticaNeue,
'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> On Sunday, November 17, 2013 7:31 AM, walmes . <walmeszeviani@gmail.com> wrote:<br> </font> </div> <div class="y_msg_container"><div id="yiv0663446931"><div><div dir="ltr"><div class="yiv0663446931gmail_default" style="font-family: 'trebuchet ms', sans-serif;">Crie uma variável que identifique cada dia sem o ano. Pode usar o dia juliano ("%j") ou combinação de mês com dia ("%m/%d"). Depois você aplica estatísticas por estrato, como média por dia.</div>
<div class="yiv0663446931gmail_default" style="font-family: 'trebuchet ms', sans-serif;"><br clear="none"></div><div class="yiv0663446931gmail_default"><div class="yiv0663446931gmail_default"><font face="courier new, monospace">da <- data.frame(x=seq(as.Date("1980-01-01"),</font></div>
<div class="yiv0663446931gmail_default"><font face="courier new, monospace"> as.Date("1990-12-31"),</font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace"> by="day"))</font></div>
<div class="yiv0663446931gmail_default"><font face="courier new, monospace">da$y <- rnorm(da$x)</font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace">str(da)</font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace"><br clear="none">
</font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace">da$j <- format(da$x, format="%j") # dia juliano 1-366</font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace">da$j <- format(da$x, format="%m/%d") # mês/dia</font></div>
<div class="yiv0663446931gmail_default"><font face="courier new, monospace">range(da$j)</font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace"><br clear="none"></font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace">db <- aggregate(y~j, da, mean)</font></div>
<div class="yiv0663446931gmail_default"><font face="courier new, monospace">str(db)</font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace"><br clear="none"></font></div><div class="yiv0663446931gmail_default"><font face="courier new, monospace">db$j <- as.Date(db$j, format="%m/%d")</font></div>
<div class="yiv0663446931gmail_default"><font face="courier new, monospace">plot(y~j, db, type="b")</font></div><div style="font-family: 'trebuchet ms', sans-serif;"><br clear="none"></div><div style="font-family: 'trebuchet ms', sans-serif;">
À disposição.</div><div style="font-family: 'trebuchet ms', sans-serif;">Walmes.</div></div></div></div></div><br><br></div> </div> </div> </div> </div></body></html>