<div dir="ltr"><div class="gmail_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="gmail_default" style="font-family:'trebuchet ms',sans-serif"><br></div><div class="gmail_default"><div class="gmail_default"><font face="courier new, monospace">da <- data.frame(x=seq(as.Date("1980-01-01"),</font></div>
<div class="gmail_default"><font face="courier new, monospace">                     as.Date("1990-12-31"),</font></div><div class="gmail_default"><font face="courier new, monospace">                     by="day"))</font></div>
<div class="gmail_default"><font face="courier new, monospace">da$y <- rnorm(da$x)</font></div><div class="gmail_default"><font face="courier new, monospace">str(da)</font></div><div class="gmail_default"><font face="courier new, monospace"><br>
</font></div><div class="gmail_default"><font face="courier new, monospace">da$j <- format(da$x, format="%j")    # dia juliano 1-366</font></div><div class="gmail_default"><font face="courier new, monospace">da$j <- format(da$x, format="%m/%d") # mês/dia</font></div>
<div class="gmail_default"><font face="courier new, monospace">range(da$j)</font></div><div class="gmail_default"><font face="courier new, monospace"><br></font></div><div class="gmail_default"><font face="courier new, monospace">db <- aggregate(y~j, da, mean)</font></div>
<div class="gmail_default"><font face="courier new, monospace">str(db)</font></div><div class="gmail_default"><font face="courier new, monospace"><br></font></div><div class="gmail_default"><font face="courier new, monospace">db$j <- as.Date(db$j, format="%m/%d")</font></div>
<div class="gmail_default"><font face="courier new, monospace">plot(y~j, db, type="b")</font></div><div style="font-family:'trebuchet ms',sans-serif"><br></div><div style="font-family:'trebuchet ms',sans-serif">
À disposição.</div><div style="font-family:'trebuchet ms',sans-serif">Walmes.</div></div></div>