<div dir="ltr"><div>Crie vetores para a data e hora, depois utilize aggregate(). No exemplo preferi adicionar os vetores no data.frame.</div><div><br></div><div>Consulte o help da aggregate() pra personalizar a saída.</div><div><br></div><div><div><font face="monospace, monospace">text <- 'symbol;nr;timestamp;open;high;low;close;volume</font></div><div><font face="monospace, monospace">1;INTC;1;2011-09-09 09:30:59;19.7500;19.86;19.75;19.8400;615100</font></div><div><font face="monospace, monospace">2;INTC;2;2011-09-09 09:31:59;19.8350;19.86;19.79;19.8600;242900</font></div><div><font face="monospace, monospace">3;INTC;3;2011-09-09 09:32:58;19.8501;19.86;19.80;19.8001;314400</font></div><div><font face="monospace, monospace">4;INTC;4;2011-09-09 10:33:56;19.8068;19.81;19.77;19.7800;183500</font></div><div><font face="monospace, monospace">5;INTC;5;2011-09-09 10:34:59;19.7900;19.81;19.78;19.7901;150900</font></div><div><font face="monospace, monospace">6;INTC;6;2011-09-09 10:35:59;19.8000;19.81;19.74;19.7700;264600</font></div><div><font face="monospace, monospace">'</font></div><div><font face="monospace, monospace"> </font></div><div><font face="monospace, monospace">INTC <- read.table(textConnection(text), header=TRUE, sep=";")</font></div><div><font face="monospace, monospace">head(INTC)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">INTC$data <- as.Date(as.POSIXlt(INTC$timestamp))</font></div><div><font face="monospace, monospace">INTC$hora <- format(as.POSIXlt(INTC$timestamp), "%H")</font></div><div><font face="monospace, monospace">head(INTC)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">aggregate(.~data+hora, data=INTC, FUN=mean)</font></div><div><br></div></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote">Em 31 de março de 2015 16:23, Michelle Bau Graczyk <span dir="ltr"><<a href="mailto:mbgraczyk@gmail.com" target="_blank">mbgraczyk@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Oi Éder,<div><br></div><div>Entendi! Muito obrigada!</div><div>Eu vou aproveitar para tirar mais uma dúvida:</div><div><br></div><div>Eu tenho que calcular a média do volume por hora fixa. Então eu pensei em criar dois laços, um dentro do outro que roda a hora e depois os minutos para que, para cada hora fixa, ele calcule a média. O problema é que eu não sei como fazer o laço lidando com o formato de horas. Eu penso que deve ser mais ou menos assim:</div><div><br></div><div><span class=""><div>INTC<-read.table("/Users/bau/Documents/Mestrado/Dadosbaixadosdothebonnotgang/INTC_1m.txt", header=TRUE, sep=";", dec=",")</div></span><div>INTC[1:5,]</div><div><br></div><div>contador<-0</div><div>a<-0</div><div>for( "H" in 9:16){</div><div> for("M" in 1:59){</div><div> </div><div> contador<-contador+1</div><div> volumeMedio= (a+ INTC$volume)/contador</div><div> a<-volumeMedio</div><div> }</div><div>}</div></div><div><br></div><div>Você poderia me ajudar?</div><div><br></div><div>Muito obrigada!</div></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><div class="gmail_quote">Em 31 de março de 2015 16:07, Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><font face="arial, helvetica, sans-serif">Olá,</font></div><div><font face="arial, helvetica, sans-serif"><br></font></div><div><font face="arial, helvetica, sans-serif">Basicamente, faltou identificar Ano, mês e dia na conversão da string.</font></div><div><font face="monospace, monospace"><br></font></div><div><div><font face="monospace, monospace">x <- c("2011-09-09 09:30:59", "2011-09-09 09:31:59", "2011-09-09 09:32:58")</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">strptime(x, "%H:%M:%S")</font></div><div><font face="monospace, monospace"># [1] NA NA NA</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">strptime(x, "%Y-%m-%d %H:%M:%S") </font></div><div><font face="monospace, monospace"># [1] "2011-09-09 09:30:59 AMT" "2011-09-09 09:31:59 AMT" "2011-09-09 09:32:58 AMT"</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">as.POSIXlt(x)</font></div><div><font face="monospace, monospace"># [1] "2011-09-09 09:30:59 AMT" "2011-09-09 09:31:59 AMT" "2011-09-09 09:32:58 AMT"</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">as.Date(as.POSIXlt(x))</font></div><div><font face="monospace, monospace"># [1] "2011-09-09" "2011-09-09" "2011-09-09"</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">format(as.POSIXlt(x), "%H:%M:%S")</font></div><div><font face="monospace, monospace"># [1] "09:30:59" "09:31:59" "09:32:58"</font></div></div></div><div class="gmail_extra"><br clear="all"><div><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote"><div><div>Em 31 de março de 2015 14:25, Michelle Bau Graczyk <span dir="ltr"><<a href="mailto:mbgraczyk@gmail.com" target="_blank">mbgraczyk@gmail.com</a>></span> escreveu:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div><div dir="ltr">Boa tarde,<div><br></div><div>Eu tenho um arquivo nesse formato e queria que a coluna de timestamp fosse separada em uma de data e outra de hora pois preciso calcular a media do volume por horário. </div><div>Para isso eu tentei usar o programa abaixo mas a saida foi NA:</div><div><br></div><div><div>> INTC<-read.table("/Users/bau/Documents/Mestrado/Dadosbaixadosdothebonnotgang/INTC_1m.txt", header=TRUE, sep=";", dec=",")</div><div>> INTC[1:25,]</div><div> symbol nr timestamp open high low close volume</div><div>1 INTC 1 2011-09-09 09:30:59 19.7500 19.86 19.75 19.8400 615100</div><div>2 INTC 2 2011-09-09 09:31:59 19.8350 19.86 19.79 19.8600 242900</div><div>3 INTC 3 2011-09-09 09:32:58 19.8501 19.86 19.80 19.8001 314400</div><div>4 INTC 4 2011-09-09 09:33:56 19.8068 19.81 19.77 19.7800 183500</div><div>5 INTC 5 2011-09-09 09:34:59 19.7900 19.81 19.78 19.7901 150900</div><div>6 INTC 6 2011-09-09 09:35:59 19.8000 19.81 19.74 19.7700 264600</div><div>7 INTC 7 2011-09-09 09:36:57 19.7700 19.81 19.77 19.8001 174300</div><div>8 INTC 8 2011-09-09 09:37:57 19.8100 19.81 19.76 19.7700 146200</div><div>9 INTC 9 2011-09-09 09:38:59 19.7600 19.83 19.76 19.8300 192100</div><div>10 INTC 10 2011-09-09 09:39:59 19.8400 19.87 19.83 19.8600 172500</div><div>11 INTC 11 2011-09-09 09:40:59 19.8700 19.87 19.76 19.7700 275000</div><div>12 INTC 12 2011-09-09 09:41:58 19.7700 19.77 19.72 19.7500 269200</div><div>13 INTC 13 2011-09-09 09:42:59 19.7500 19.82 19.75 19.8100 209600</div><div>14 INTC 14 2011-09-09 09:43:57 19.8197 19.82 19.79 19.7900 303200</div><div>15 INTC 15 2011-09-09 09:44:57 19.7900 19.82 19.78 19.7900 148000</div><div>16 INTC 16 2011-09-09 09:45:58 19.7900 19.79 19.75 19.7550 168700</div><div>17 INTC 17 2011-09-09 09:46:59 19.7600 19.85 19.75 19.8500 224200</div><div>18 INTC 18 2011-09-09 09:47:57 19.8594 19.88 19.85 19.8700 158600</div><div>19 INTC 19 2011-09-09 09:48:01 19.8800 19.91 19.87 19.9000 219500</div><div>20 INTC 20 2011-09-09 09:49:59 19.8900 19.92 19.89 19.9200 121000</div><div>21 INTC 21 2011-09-09 09:50:59 19.9200 19.93 19.90 19.9200 241400</div><div>22 INTC 22 2011-09-09 09:51:59 19.9100 19.95 19.90 19.9300 214000</div><div>23 INTC 23 2011-09-09 09:52:59 19.9300 19.94 19.92 19.9300 74200</div><div>24 INTC 24 2011-09-09 09:53:59 19.9292 19.93 19.88 19.9000 274400</div><div>25 INTC 25 2011-09-09 09:54:59 19.9000 19.92 19.87 19.9200 75800</div><div><br></div><div>> strptime(INTC$timestamp," %H:%M:%S")</div><div> [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [31] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [61] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [91] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [121] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [151] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [181] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [211] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [241] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA</div><div> [271] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA </div><div> [ reached getOption("max.print") -- omitted 335637 entries ]</div></div><div><br></div><div>Muito obrigada!!!</div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
</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>