<div dir="ltr">Oi Éder! Me desculpe por estar respondendo só agora, mas é que só agora parei.<div><br></div><div>Muito muito muuuuuito obrigada pela sua ajuda e por ter compartilhado a sua ídeia! Me ajudou muito mesmo!</div><div><br></div><div>Beijo!</div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-03-06 8:36 GMT-03:00 É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:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra">Michelle, bom dia!</div><div class="gmail_extra"><br></div><div class="gmail_extra">Encaminho uma ideia de resolução com base no que pude entender e aproveitando a sugestão do colega Rubem.</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra"><font face="monospace, monospace">### <code r></font></div><div class="gmail_extra"><font face="monospace, monospace">setwd("c:\\lab\\temp")</font></div><div class="gmail_extra"><font face="monospace, monospace">AA <- read.table("AXP_NYS_USD_1min_EST5EDT_200407s12e.dat", header=FALSE, </font></div><div class="gmail_extra"><font face="monospace, monospace"> col.names=c("data","hora","preco","volume"), <a href="http://as.is" target="_blank">as.is</a>=T)</font></div><div class="gmail_extra"><font face="monospace, monospace">str(AA)</font></div><div class="gmail_extra"><font face="monospace, monospace">AA$data <- as.Date(AA$data, "%d.%m.%Y")</font></div><div class="gmail_extra"><font face="monospace, monospace">AA$hora <- format(strptime(AA$hora, "%H:%M:%S"), "%H:%M")</font></div><div class="gmail_extra"><font face="monospace, monospace">AA$horaid <- as.numeric(as.factor(AA$hora)) ### valores utilizados no seu código original</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">head(AA, 3)</font></div><div class="gmail_extra"><font face="monospace, monospace"># data hora preco volume horaid</font></div><div class="gmail_extra"><font face="monospace, monospace"># 1 01.07.2004 09:31 51.37 27900 1</font></div><div class="gmail_extra"><font face="monospace, monospace"># 2 01.07.2004 09:32 51.32 100 2</font></div><div class="gmail_extra"><font face="monospace, monospace"># 3 01.07.2004 09:33 51.45 700 3</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace"># write.table(AA,"testeteste.txt")</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">### seleção de uma data simples</font></div><div class="gmail_extra"><font face="monospace, monospace">AA[AA$hora=="09:31",]</font></div><div class="gmail_extra"><font face="monospace, monospace"># AA[AA$horaid==1,] ### resultado equivalente</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">### reestruturando data.frame</font></div><div class="gmail_extra"><font face="monospace, monospace">require(reshape2)</font></div><div class="gmail_extra"><font face="monospace, monospace">AA2 <- dcast(AA, data~hora, value.var='volume') ### Utilizando texto das horas</font></div><div class="gmail_extra"><font face="monospace, monospace">AA3 <- dcast(AA, data~horaid, value.var='volume') ### Utilizando índice das horas</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><div class="gmail_extra"><font face="monospace, monospace">head(AA2[,1:8], 3)</font></div><div class="gmail_extra"><font face="monospace, monospace"># data 09:31 09:32 09:33 09:34 09:35 09:36 09:37</font></div><div class="gmail_extra"><font face="monospace, monospace"># 1 2004-07-01 27900 100 700 1000 800 3000 1600</font></div><div class="gmail_extra"><font face="monospace, monospace"># 2 2004-07-02 145400 500 NA 500 6900 NA 4400</font></div><div class="gmail_extra"><font face="monospace, monospace"># 3 2004-07-06 3200 2300 3800 1500 NA 1100 3700</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><font face="monospace, monospace">head(AA3[,1:8], 3)</font></div><div class="gmail_extra"><font face="monospace, monospace"># data 1 2 3 4 5 6 7</font></div><div class="gmail_extra"><font face="monospace, monospace"># 1 2004-07-01 27900 100 700 1000 800 3000 1600</font></div><div class="gmail_extra"><font face="monospace, monospace"># 2 2004-07-02 145400 500 NA 500 6900 NA 4400</font></div><div class="gmail_extra"><font face="monospace, monospace"># 3 2004-07-06 3200 2300 3800 1500 NA 1100 3700</font></div></div><div class="gmail_extra"><br></div><div class="gmail_extra"><font face="monospace, monospace">### extra</font></div><div class="gmail_extra"><font face="monospace, monospace">dObs <- unique(AA2$data); length(dObs) ### dias observados</font></div><div class="gmail_extra"><font face="monospace, monospace">dEsp <- seq(min(dObs), max(dObs), by="day"); length(dEsp) ### dias esperados</font></div><div class="gmail_extra"><font face="monospace, monospace">dEsp[!dEsp %in% dObs] ### dias faltantes</font></div><div class="gmail_extra"><font face="monospace, monospace"><br></font></div><div class="gmail_extra"><span style="font-family:monospace,monospace">### </code></span><br></div><div><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>