Eu resolveria assim:<br><br>serie<-format(serie,"%Y-%b-%d")<br><br>serie[grep("Apr-10",serie)]<br><br>Abs,<br><br>D<br><br><br><div class="gmail_quote">2012/10/14 Gabriel Bruno de Lemos <span dir="ltr"><<a href="mailto:gblemos@usp.br" target="_blank">gblemos@usp.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div link="blue" vlink="purple" lang="PT-BR"><div><p class="MsoNormal">Boa tarde!<u></u><u></u></p><p class="MsoNormal">
<u></u> <u></u></p><p class="MsoNormal">Tenho um banco de dados com observações diárias durante um período de 50 anos. Desejo filtrar alguns períodos específicos, tais como todos os dias 10/04 de cada ano.<u></u><u></u></p>
<p class="MsoNormal">Alguém saberia como realizar tal busca por data?<u></u><u></u></p><p class="MsoNormal">A forma que utilizei para resolver no “jeitinho brasileiro” foi usar o Excel para criar uma coluna com o dia e outra com o mês de cada data. Em seguida, no R, faço uma busca usando o comando<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">## Datas<u></u><u></u></p><p class="MsoNormal"><span lang="EN-US">ini=as.Date("1961-01-01",origin="1899-12-30",format="%Y-%m-%d")<u></u><u></u></span></p>
<p class="MsoNormal">fim=as.Date("2010-12-31",origin="1899-12-30",format="%Y-%m-%d")<u></u><u></u></p><p class="MsoNormal"><span lang="EN-US">serie=seq.Date(from=ini,to=fim,by="day")<u></u><u></u></span></p>
<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p><p class="MsoNormal">## Criei o “dados_excel” no Excel usando as funções “Dia()” e “Mês”. Em seguida criei a “tabela” no R adicionando estes dois vetores à série “Data”.<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">tabela <- data.frame(serie,dados_excel)<u></u><u></u></p><p class="MsoNormal">head(tabela)<u></u><u></u></p><p class="MsoNormal"><span style="background:#e1e2e5;font-size:10.0pt;font-family:"Lucida Console""># dados.Data Dia Mes Ano<u></u><u></u></span></p>
<p class="MsoNormal"><span style="background:#e1e2e5;font-size:10.0pt;font-family:"Lucida Console"">#1 1961-01-01 1 1 1961<u></u><u></u></span></p><p class="MsoNormal"><span style="background:#e1e2e5;font-size:10.0pt;font-family:"Lucida Console"">#2 1961-01-02 2 1 1961<u></u><u></u></span></p>
<p class="MsoNormal"><span style="background:#e1e2e5;font-size:10.0pt;font-family:"Lucida Console"">#3 1961-01-03 3 1 1961<u></u><u></u></span></p><p class="MsoNormal"><span style="background:#e1e2e5;font-size:10.0pt;font-family:"Lucida Console"">#4 1961-01-04 4 1 1961<u></u><u></u></span></p>
<p class="MsoNormal"><span style="background:#e1e2e5;font-size:10.0pt;font-family:"Lucida Console"">#5 1961-01-05 5 1 1961<u></u><u></u></span></p><p class="MsoNormal"><span style="background:#e1e2e5;font-size:10.0pt;font-family:"Lucida Console"">#6 1961-01-06 6 1 1961<u></u><u></u></span></p>
<p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">head(tabela[tabela$Dia==10 & tabela$Mes==4,])<u></u><u></u></p><pre><span style="background:#e1e2e5;font-family:"Lucida Console""># dados.Data Dia Mes Ano<u></u><u></u></span></pre>
<pre><span style="background:#e1e2e5;font-family:"Lucida Console"">#100 1961-04-10 10 4 1961<u></u><u></u></span></pre><pre><span style="background:#e1e2e5;font-family:"Lucida Console"">#465 1962-04-10 10 4 1962<u></u><u></u></span></pre>
<pre><span style="background:#e1e2e5;font-family:"Lucida Console"">#830 1963-04-10 10 4 1963<u></u><u></u></span></pre><pre><span style="background:#e1e2e5;font-family:"Lucida Console"">#1196 1964-04-10 10 4 1964<u></u><u></u></span></pre>
<pre><span style="background:#e1e2e5;font-family:"Lucida Console"">#1561 1965-04-10 10 4 1965<u></u><u></u></span></pre><pre><span style="background:#e1e2e5;font-family:"Lucida Console"">#1926 1966-04-10 10 4 1966<u></u><u></u></span></pre>
<p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Este mecanismo funcionou mas gostaria de saber se existe algo mais automatizado.<u></u><u></u></p><p class="MsoNormal">Obs: O código acima só será reproduzível se for criado os vetores “Dia” e “Mes” (que eu não fiz no R)<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Att,<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">
<u></u> <u></u></p><p class="MsoNormal"><u></u> <u></u></p></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>