<div dir="ltr"><div>Talvez o comando a seguir...</div><div><br></div>dados <- read.csv('<a href="http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv">http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv</a>', skip=17, header=FALSE)<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 26 de fevereiro de 2015 09:20, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@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">Não entendi a "freqüência de um minuto", mas segue uma sugestão em script abaixo, espero que ajude.<br><div><br><br>#um link simples da para ler com readLines também<br>tmp <- readLines('<a href="http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv" target="_blank">http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv</a>')<br>#Se o link não varia muito, da pra simplismente no olho escolher a linha de interesse<br>#Outra opção é usar uma expressão regular para achar a primeira linha onde começa os números<br>head(tmp,20)<br>tabela<-tmp[18:length(tmp)]<br><br>#Depois como parece que os dados estão separados por virgulas, da para usar<br>#strsplit em virgulas, ele vai retornar uma lista, olhe para a primeira linha<br>strsplit(tabela[1],",")<br>tabela_split<-strsplit(tabela,",")<br><br>#então podemos criar uma matriz para receber os dados<br>dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))<br>head(dados)<br><br># e de forma pouco efiente usar um loop para colocar os dados nele, ja convertendo<br>#para numerico, seria melhor um lapply aqui, eu acredito, mas assim é mais facil entender<br>#eu acho<br>for(i in 1:length(tabela_split)) {<br> dados[i,]<-as.numeric(tabela_split[[i]])<br>}<br>head(dados)<br><br>#Ai da para organizar os nomes de colunas linhas<br>dimnames(dados)<-list(paste("Linha",1:length(tabela_split)),paste("Coluna",1:length(tabela_split[[1]])))<br>head(dados)<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 25 de fevereiro de 2015 19:53, Michelle Bau Graczyk <span dir="ltr"><<a href="mailto:mbgraczyk@gmail.com" target="_blank">mbgraczyk@gmail.com</a>></span> escreveu:<div><div class="h5"><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Não precisa não, só preciso que os dados obtidos tenham freqüência de um minuto. Estou aprendendo a linguagem R agora e por isso estou meio que tentando de todos os jeitos. Qualquer sugestão é bem vinda =D</div><div class="gmail_extra"><br><div class="gmail_quote">Em 25 de fevereiro de 2015 20:43, Jelson Ventura Fresca <span dir="ltr"><<a href="mailto:jelsonvf@gmail.com" target="_blank">jelsonvf@gmail.com</a>></span> escreveu:<div><div><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p dir="ltr">Existem pacotes que fazem isso de maneira mais simples, precisa utilizar o rcurl? </p>
<div style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div><div dir="ltr">Boa noite,<div><br></div><div>Estou tentando coletar dados intraday do yahoo finance e manipular os dados obtidos excluindo todo cabeçalho, ou seja as 18 primeiras linhas, e tentando separar em colunas os dados restantes nas outras linhas. Já fiz várias tentaivas usando read.table, write,table e suas complementares e não obtive êxito. Alguém poderia por favor me ajudar? Abaixo segue o código e o que ele me fornece.</div><div>Muito obrigada!</div><div>Michelle</div><div><br></div><div><div style="font-size:13px">library(RCurl)</div><div style="font-size:13px"><br></div><div style="font-size:13px">tmp <- getURL('<a href="http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv" target="_blank">http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv</a>')</div><div style="font-size:13px"><br></div><div style="font-size:13px">tmp2<-paste(tmp, sep=",", dec='.')</div><div style="font-size:13px"><br></div><div style="font-size:13px">write.table(tmp2, "AAPL.txt")</div></div><div style="font-size:13px"><br></div><div style="font-size:13px"><div>"x"</div><div>"1" "uri:/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv</div><div>ticker:aapl</div><div>Company-Name:Apple Inc.</div><div>Exchange-Name:NMS</div><div>unit:MIN</div><div>timezone:EST</div><div>currency:USD</div><div>gmtoffset:-18000</div><div>previous_close:133.0000</div><div>Timestamp:1424788200,1424811600</div><div>labels:1424790000,1424793600,1424797200,1424800800,1424804400,1424808000,1424811600</div><div>values:Timestamp,close,high,low,open,volume</div><div>close:131.3100,133.5873</div><div>high:131.5000,133.6000</div><div>low:131.1700,133.5000</div><div>open:131.2700,133.5800</div><div>volume:0,2250400</div><div>1424788200,132.7800,132.9400,132.5100,132.9400,2077100</div><div>1424788260,132.6467,132.8000,132.6350,132.7300,503100</div><div>1424788379,132.5601,132.6500,132.3600,132.6500,625100</div><div>1424788380,132.0966,132.5700,132.0900,132.5600,553200</div><div>1424788440,132.2300,132.2600,132.0500,132.0900,579800</div><div>….</div></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></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></div></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></div></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><br>-- <br><div><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</font></span></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><br clear="all"><div><br></div>-- <br><div class="gmail_signature">Marcos F. Silva<br><a href="http://sites.google.com/site/marcosfs2006" target="_blank">http://sites.google.com/site/marcosfs2006</a></div>
</div>