Question

我试图解决的问题是使用Yahoo!将字符串循环到R财务api。这将产生一堆数据帧文件，但如果我可以将其转换为xts，那将是非常棒的。但是，xts部分并不重要。

library(quantmod)
DB <- quantmod:::DDB_Yahoo()       
for (i in length(DB$db)){
  symbols <- DB$db[i] #symbols are c('AAIT', 'AAL', 'AAME', ...   #Thousands Essentially 
URL <- "http://ichart.finance.yahoo.com/table.csv?s=symbols"
dat[i] <- read.csv(URL[i])
dat$Date <- as.Date(dat$Date, "%Y-%m-%d")

我知道我们不能在（“”）引号中包含符号，但这是出于逻辑目的。

P.S。对于这个例子，我没有故意使用quantmod函数。

Answer 1

x<-c('AAIT', 'AAL', 'AAME')
kk<-lapply(x,function(i) download.file(paste0("http://ichart.finance.yahoo.com/table.csv?s=",i),paste0(i,".csv")))

如果你想直接阅读文件：

jj<- lapply(x,function(i) read.csv(paste0("http://ichart.finance.yahoo.com/table.csv?s=",i)))

使用Yahoo!没有quantmod函数的数据库

1 个答案: