<div dir="ltr">Para manipulação de dados eu sugiro o pacote dplyr. E acho que o operador %>% torna a manipulação mais intuitiva.<div>Tem um bom tutorial aqui: <a href="http://rpubs.com/justmarkham/dplyr-tutorial">http://rpubs.com/justmarkham/dplyr-tutorial</a><div><br></div><div><div>> library(dplyr)</div><div>> AA %>% group_by(Data) %>% summarise(maximo = max(Preco), minimo = min(Preco))</div><div>Source: local data frame [3 x 3]</div><div><br></div><div> Data maximo minimo</div><div>1 37988 38.06 38.0</div><div>2 37991 37.90 37.9</div><div>3 37992 38.90 38.9</div><div><br></div><div><div>> AA %>% group_by(Data) %>% slice(which.min(Hora)) %>% select(Primeiro = Preco)</div><div>Source: local data frame [3 x 2]</div><div>Groups: Data</div><div><br></div><div> Data Primeiro</div><div>1 37988 38.0</div><div>2 37991 37.9</div><div>3 37992 38.9</div></div><div><br></div><div><div>AA %>% group_by(Data) %>% slice(which.max(Hora)) %>% select(Ultimo = Preco)</div><div>Source: local data frame [3 x 2]</div><div>Groups: Data</div><div><br></div><div> Data Ultimo</div><div>1 37988 38.05</div><div>2 37991 37.90</div><div>3 37992 38.90</div></div><div><br></div></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-11-11 14:28 GMT-02:00 salah <span dir="ltr"><<a href="mailto:salah3.1416@gmail.com" target="_blank">salah3.1416@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Olá, segue uma sugestão<br>
<br>
DADOS = structure(list(Data = c(37988L, 37988L, 37988L, 37988L, 37988L,<br>
<span class=""> 37988L, 37991L, 37991L, 37991L, 37991L, 37992L, 37992L, 37992L,<br>
</span> 37992L), Hora = c(34251.038, 34263.36, 34296.73, 34301.369,<br>
<span class=""> 34318.91, 34324.707, 34398.295, 34400.585, 34416.511, 34425.892,<br>
</span> 34250.443, 34252.127, 34266.757, 34273.928), X1 = c(-1, -1,<br>
<span class=""> 38.05, 38.06, 38.06, 38.04, 37.8, 37.8, 37.85, 37.85, -1, -1,<br>
</span> 38.85, 38.85), X2 = c(-1L, -1L, 32L, 2L, 4L, 1L, 50L, 50L,<br>
1L, 1L, -1L, -1L, 1L, 1L), X3 = c(-1, -1, 38.08, 38.08, 38.07,<br>
38.07, 38.3, 38.3, 37.95, 37.95, -1, -1, 38.95, 38.95), X4 =<br>
c(-1L,<br>
-1L, 1L, 1L, 1L, 1L, 203L, 203L, 1L, 1L, -1L, -1L, 1L, 1L), Preco<br>
<span class="">= c(38,<br>
38, 38.05, 38.06, 38.06, 38.05, 37.9, 37.9, 37.9, 37.9, 38.9,<br>
</span> 38.9, 38.9, 38.9), Volume = c(600L, 5000L, 6000L, 1500L, 500L,<br>
<span class=""> 4500L, 161800L, 500L, 3700L, 1100L, 125000L, 1100L, 400L, 1000L<br>
</span> )), .Names = c("Data", "Hora", "X1", "X2", "X3",<br>
"X4", "Preco", "Volume"), class = "data.frame", row.names = c(NA,<br>
-14L))<br>
library(data.table)<br>
<br>
## converte data.frame para data.table<br>
setDT(DADOS)<br>
## em list voce pode escolher max, min, mean, sd, etc. Em by voce<br>
escolhe por preco<br>
## por Data, qual variavel que deseja<br>
<br>
## por volume e data<br>
DADOS[, list(Precomax=max(Preco), Precomin=min(Preco)), by = .(Data,<br>
Volume)]<br>
<br>
## por data<br>
DADOS[, list(Precomax=max(Preco), Precomin=min(Preco)), by = .(Data)]<br>
<br>
?data.table<br>
<div><div class="h5"><br>
<br>
Em Qua, 2015-11-11 às 13:00 -0200, Michelle Bau Graczyk escreveu:<br>
> Caros, bom dia…<br>
><br>
><br>
> Estou com uma dúvida bem boba mas não consigo resolver!<br>
><br>
><br>
> Eu tenho um data frame que a primeira coluna é a data, a segunda é o<br>
> horário e as outras seis são dados como preço e volume.<br>
> Os dias estão em forma numérica e eu os deixei assim porque achei que<br>
> seria mais fácil fazer o laço. O objetivo é que para cada daia eu ache<br>
> o valor inicial e final do preço assim como o seu máximo e seu mínimo.<br>
> Estou tendo problemas somente em trocar de dia.<br>
> Abaixo segue um pedaço reduzido do data frame e o código.<br>
> Alguém poderia me dar uma dica?<br>
> Muito obrigada!<br>
> AA<-read.table("/Users/bau/Dropbox/AA.N_ExemploReduzido.csv",header=TRUE<br>
> + ,dec=".",<a href="http://as.is" rel="noreferrer" target="_blank">as.is</a>=TRUE, sep=",")<br>
> > #AA<br>
> > dput(AA)<br>
> structure(list(X37988 = c(37988L, 37988L, 37988L, 37988L, 37988L,<br>
> 37988L, 37991L, 37991L, 37991L, 37991L, 37992L, 37992L, 37992L,<br>
> 37992L), X34244.059 = c(34251.038, 34263.36, 34296.73, 34301.369,<br>
> 34318.91, 34324.707, 34398.295, 34400.585, 34416.511, 34425.892,<br>
> 34250.443, 34252.127, 34266.757, 34273.928), X.1 = c(-1, -1,<br>
> 38.05, 38.06, 38.06, 38.04, 37.8, 37.8, 37.85, 37.85, -1, -1,<br>
> 38.85, 38.85), X.1.1 = c(-1L, -1L, 32L, 2L, 4L, 1L, 50L, 50L,<br>
> 1L, 1L, -1L, -1L, 1L, 1L), X.1.2 = c(-1, -1, 38.08, 38.08, 38.07,<br>
> 38.07, 38.3, 38.3, 37.95, 37.95, -1, -1, 38.95, 38.95), X.1.3 =<br>
> c(-1L,<br>
> -1L, 1L, 1L, 1L, 1L, 203L, 203L, 1L, 1L, -1L, -1L, 1L, 1L), X38 =<br>
> c(38,<br>
> 38, 38.05, 38.06, 38.06, 38.05, 37.9, 37.9, 37.9, 37.9, 38.9,<br>
> 38.9, 38.9, 38.9), X55900 = c(600L, 5000L, 6000L, 1500L, 500L,<br>
> 4500L, 161800L, 500L, 3700L, 1100L, 125000L, 1100L, 400L, 1000L<br>
> )), .Names = c("X37988", "X34244.059", "X.1", "X.1.1", "X.1.2",<br>
> "X.1.3", "X38", "X55900"), class = "data.frame", row.names = c(NA,<br>
> -14L))<br>
> ><br>
> > matriz<-matrix(NA,230,4)## numero de linhas é o numero de dias.<br>
> > colnames(matriz)<-c("open","close","low","higth")<br>
> > i<-1<br>
> > for( x in 37988:38000){<br>
> +<br>
> +<br>
> + #x<-37988<br>
> +<br>
> + if(AA$data==x){<br>
> + AA1<-subset(AA,AA$data==x)<br>
> + matriz[i,1]<-AA1[1,7]<br>
> + matriz[i,2]<-AA1[nrow(AA1),7]<br>
> + matriz[i,3]<-min(AA1$last)<br>
> + matriz[i,4]<-max(AA1$last)<br>
> +<br>
> + i=i+1<br>
> + }<br>
> +<br>
> AA<-read.table("/Users/bau/Dropbox/AA.N_ExemploReduzido.csv",header=TRUE<br>
> + ,dec=".",<a href="http://as.is" rel="noreferrer" target="_blank">as.is</a>=TRUE, sep=",")<br>
> + #AA<br>
> + dput(AA)<br>
> +<br>
> + matriz<-matrix(NA,3,4)## numero de linhas é o numero de dias.<br>
> + colnames(matriz)<-c("open","close","low","higth")<br>
> + i<-1<br>
> + for( x in 37988:37992){<br>
> +<br>
> +<br>
> +<br>
> +<br>
> + if(AA$data==x){<br>
> + AA1<-subset(AA,AA$data==x)<br>
> + matriz[i,1]<-AA1[1,7]<br>
> + matriz[i,2]<-AA1[nrow(AA1),7]<br>
> + matriz[i,3]<-min(AA1$last)<br>
> + matriz[i,4]<-max(AA1$last)<br>
> +<br>
> + i=i+1<br>
> + }<br>
> + }<br>
> + matriz<br>
> + write.table(matriz,"Matriz4ParametrosPreço.txt")<br>
> +<br>
</div></div><span class="">> _______________________________________________<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>
</span>> 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 fornea cdigo mnimo reproduzvel.<br>
<span class=""><br>
<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>
</span>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 fornea cdigo mnimo reproduzvel.</blockquote></div><br></div>