<div dir="ltr">Olá!<div><br></div><div>Você só precisa da função "tapply"...</div><div><br></div><div>Abs</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 11 de novembro de 2015 13:00, 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">Caros, bom dia…<div><br></div><div>Estou com uma dúvida bem boba mas não consigo resolver!</div><div><br></div><div>Eu tenho um data frame que a primeira coluna é a data, a segunda é o horário e as outras seis são dados como preço e volume.</div><div>Os dias estão em forma numérica e eu os deixei assim porque achei que seria mais fácil fazer o laço. O objetivo é que para cada daia eu ache o valor inicial e final do preço assim como o seu máximo e seu mínimo. Estou tendo problemas somente em trocar de dia.</div><div>Abaixo segue um pedaço reduzido do data frame e o código. </div><div>Alguém poderia me dar uma dica?</div><div>Muito obrigada!</div><div><div>AA<-read.table("/Users/bau/Dropbox/AA.N_ExemploReduzido.csv",header=TRUE</div><div>+ ,dec=".",<a href="http://as.is" target="_blank">as.is</a>=TRUE, sep=",")</div><div>> #AA</div><div>> dput(AA)</div><div>structure(list(X37988 = c(37988L, 37988L, 37988L, 37988L, 37988L, </div><div>37988L, 37991L, 37991L, 37991L, 37991L, 37992L, 37992L, 37992L, </div><div>37992L), X34244.059 = c(34251.038, 34263.36, 34296.73, 34301.369, </div><div>34318.91, 34324.707, 34398.295, 34400.585, 34416.511, 34425.892, </div><div>34250.443, 34252.127, 34266.757, 34273.928), X.1 = c(-1, -1, </div><div>38.05, 38.06, 38.06, 38.04, 37.8, 37.8, 37.85, 37.85, -1, -1, </div><div>38.85, 38.85), X.1.1 = c(-1L, -1L, 32L, 2L, 4L, 1L, 50L, 50L, </div><div>1L, 1L, -1L, -1L, 1L, 1L), X.1.2 = c(-1, -1, 38.08, 38.08, 38.07, </div><div>38.07, 38.3, 38.3, 37.95, 37.95, -1, -1, 38.95, 38.95), X.1.3 = c(-1L, </div><div>-1L, 1L, 1L, 1L, 1L, 203L, 203L, 1L, 1L, -1L, -1L, 1L, 1L), X38 = c(38, </div><div>38, 38.05, 38.06, 38.06, 38.05, 37.9, 37.9, 37.9, 37.9, 38.9, </div><div>38.9, 38.9, 38.9), X55900 = c(600L, 5000L, 6000L, 1500L, 500L, </div><div>4500L, 161800L, 500L, 3700L, 1100L, 125000L, 1100L, 400L, 1000L</div><div>)), .Names = c("X37988", "X34244.059", "X.1", "X.1.1", "X.1.2", </div><div>"X.1.3", "X38", "X55900"), class = "data.frame", row.names = c(NA, </div><div>-14L))</div><div>> </div><div>> matriz<-matrix(NA,230,4)## numero de linhas é o numero de dias.</div><div>> colnames(matriz)<-c("open","close","low","higth")</div><div>> i<-1</div><div>> for( x in 37988:38000){</div><div>+ </div><div>+ </div><div>+ #x<-37988</div><div>+ </div><div>+ if(AA$data==x){</div><div>+ AA1<-subset(AA,AA$data==x)</div><div>+ matriz[i,1]<-AA1[1,7]</div><div>+ matriz[i,2]<-AA1[nrow(AA1),7]</div><div>+ matriz[i,3]<-min(AA1$last)</div><div>+ matriz[i,4]<-max(AA1$last)</div><div>+ </div><div>+ i=i+1</div><div>+ }</div><div>+ AA<-read.table("/Users/bau/Dropbox/AA.N_ExemploReduzido.csv",header=TRUE</div><div>+ ,dec=".",<a href="http://as.is" target="_blank">as.is</a>=TRUE, sep=",")</div><div>+ #AA</div><div>+ dput(AA)</div><div>+ </div><div>+ matriz<-matrix(NA,3,4)## numero de linhas é o numero de dias.</div><div>+ colnames(matriz)<-c("open","close","low","higth")</div><div>+ i<-1</div><div>+ for( x in 37988:37992){</div><div>+ </div><div>+ </div><div>+ </div><div>+ </div><div>+ if(AA$data==x){</div><div>+ AA1<-subset(AA,AA$data==x)</div><div>+ matriz[i,1]<-AA1[1,7]</div><div>+ matriz[i,2]<-AA1[nrow(AA1),7]</div><div>+ matriz[i,3]<-min(AA1$last)</div><div>+ matriz[i,4]<-max(AA1$last)</div><div>+ </div><div>+ i=i+1</div><div>+ }</div><div>+ }</div><div>+ matriz</div><div>+ write.table(matriz,"Matriz4ParametrosPreço.txt")</div><div>+ </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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"> <img src="https://upload.wikimedia.org/wikipedia/commons/e/e0/Bras%C3%A3o_da_UFJF.png" width="85" height="96" style="font-size:12.8px"><span style="font-size:12.8px"> </span><img src="http://yd8fzw.blu.livefilestore.com/y1pnffN5MgiAejCR2myD2UC5Un09ZVA7q21aARAJryYrZkrM37mf2Wt5Esyl66nhcThokwdjQFv-06rZzlsuezloEsTsCD8Bv9y/Doing%20R%20thing.jpg?psid=1" height="87" width="96" style="font-size:12.8px"><br><div style="padding:0px;margin-left:0px;margin-top:0px;overflow:hidden;word-wrap:break-word;color:black;font-size:10px;text-align:left;line-height:130%"></div><div><b>Prof. Márcio Luís Moreira de Souza, M.Sc.</b></div><div><font color="#444444">Biólogo (UFRRJ), Mestre em Eng. Biomédica (COPPE/UFRJ)</font></div><div><span style="font-size:12.8px"><font color="#666666">Professor Assistente I, Classe A, </font></span><span style="color:rgb(102,102,102);font-size:12.8px">Universidade Federal de Juiz de Fora</span></div><div><span style="font-size:12.8px"><font color="#999999">Campus Avançado Governador Valadares</font></span></div><div><div><div><a href="http://lattes.cnpq.br/4578008002785684" target="_blank">http://lattes.cnpq.br/4578008002785684</a><br></div><div style="padding:0px;margin-left:0px;margin-top:0px;overflow:hidden;word-wrap:break-word;color:black;font-size:10px;text-align:left;line-height:130%"></div><div style="padding:0px;margin-left:0px;margin-top:0px;overflow:hidden;word-wrap:break-word;color:black;font-size:10px;text-align:left;line-height:130%"></div><div style="padding:0px;margin-left:0px;margin-top:0px;overflow:hidden;word-wrap:break-word;color:black;font-size:10px;text-align:left;line-height:130%"></div></div></div><div><br></div><div><br></div></div></div></div></div></div></div>
</div>