[R-br] Manipulação de tabela obtida com o getURL

[Augusto Ribas]

Não entendi a "freqüência de um minuto", mas segue uma sugestão em script
abaixo, espero que ajude.


#um link simples da para ler com readLines também
tmp <- readLines('
http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv
')
#Se o link não varia muito, da pra simplismente no olho escolher a linha de
interesse
#Outra opção é usar uma expressão regular para achar a primeira linha onde
começa os números
head(tmp,20)
tabela<-tmp[18:length(tmp)]

#Depois como parece que os dados estão separados por virgulas, da para usar
#strsplit em virgulas, ele vai retornar uma lista, olhe para a primeira
linha
strsplit(tabela[1],",")
tabela_split<-strsplit(tabela,",")

#então podemos criar uma matriz para receber os dados
dados<-matrix(NA,ncol=length(tabela_split[[1]]),nrow=length(tabela_split))
head(dados)

# e de forma pouco efiente usar um loop para colocar os dados nele, ja
convertendo
#para numerico, seria melhor um lapply aqui, eu acredito, mas assim é mais
facil entender
#eu acho
for(i in 1:length(tabela_split)) {
    dados[i,]<-as.numeric(tabela_split[[i]])
}
head(dados)

#Ai da para organizar os nomes de colunas linhas
dimnames(dados)<-list(paste("Linha",1:length(tabela_split)),paste("Coluna",1:length(tabela_split[[1]])))
head(dados)

Em 25 de fevereiro de 2015 19:53, Michelle Bau Graczyk <mbgraczyk em gmail.com>
escreveu:

> 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
>
> Em 25 de fevereiro de 2015 20:43, Jelson Ventura Fresca <
> jelsonvf em gmail.com> escreveu:
>
> Existem pacotes que fazem isso de maneira mais simples, precisa utilizar o
>> rcurl?
>> Boa noite,
>>
>> 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.
>> Muito obrigada!
>> Michelle
>>
>> library(RCurl)
>>
>> tmp <- getURL('
>> http://chartapi.finance.yahoo.com/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv
>> ')
>>
>> tmp2<-paste(tmp, sep=",", dec='.')
>>
>> write.table(tmp2, "AAPL.txt")
>>
>> "x"
>> "1" "uri:/instrument/1.0/AAPL/chartdata;type=quote;range=1d/csv
>> ticker:aapl
>> Company-Name:Apple Inc.
>> Exchange-Name:NMS
>> unit:MIN
>> timezone:EST
>> currency:USD
>> gmtoffset:-18000
>> previous_close:133.0000
>> Timestamp:1424788200,1424811600
>>
>> labels:1424790000,1424793600,1424797200,1424800800,1424804400,1424808000,1424811600
>> values:Timestamp,close,high,low,open,volume
>> close:131.3100,133.5873
>> high:131.5000,133.6000
>> low:131.1700,133.5000
>> open:131.2700,133.5800
>> volume:0,2250400
>> 1424788200,132.7800,132.9400,132.5100,132.9400,2077100
>> 1424788260,132.6467,132.8000,132.6350,132.7300,503100
>> 1424788379,132.5601,132.6500,132.3600,132.6500,625100
>> 1424788380,132.0966,132.5700,132.0900,132.5600,553200
>> 1424788440,132.2300,132.2600,132.0500,132.0900,579800
>> ….
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
>> código mínimo reproduzível.
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
>> código mínimo reproduzível.
>>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>



-- 
Grato
Augusto C. A. Ribas

Site Pessoal: http://recologia.com.br/ <http://augustoribas.heliohost.org>
Github: https://github.com/Squiercg
Lattes: http://lattes.cnpq.br/7355685961127056
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150226/ace2af62/attachment.html>