<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>