R中每列的API调用

Question

我的数据框中有一列包含自动收录器代码，例如AAPL（适用于Apple），TWTR（适用于Twitter）等等。我想根据数据框中的股票代码数创建新列，并使用将从API检索的收盘价填充这些列。结果应如下所示：

但是，当我运行下面的代码时，它会显示警告和错误，因为列之间的行数不同。有人有解决方案吗？

library(Quandl)

portfolio <- data.frame(Code=c("AAPL", "TWTR", "MSFT"),
                    stringsAsFactors=FALSE)


analytic <- function(pf, startDate) {
  z <- do.call(cbind.data.frame, lapply(seq(1:nrow(pf)), function(x) {
   API <- Quandl(paste0("WIKI/", pf$Code[x]),
              type = "raw", 
              start_date = startDate, 
              end_date=Sys.Date())
   ValuebyDate <- API[,c("Date", "Close")]
   return(ValuebyDate)
}))
return(z)
}

analytic(portfolio, "2016-01-01")

Answer 1

这是使用不同方法解决问题的另一种方法。

rm(list=ls())
library(tseries)
portfolio <- data.frame(Code=c("AAPL", "TWTR", "MSFT"),
                stringsAsFactors=FALSE)
startDate = "2016-01-04"

getHistData <- function(x){

  ts <- get.hist.quote(instrument = portfolio$Code[x], start = startDate, end = Sys.Date(),
                                      quote = "Close", provider = "yahoo", retclass = "zoo")
  names(ts) <- portfolio$Code[x]
  head(ts)
  return(ts)
}

ts1 = getHistData(1)
head(ts1)
ts2 = getHistData(2)
head(ts2)
ts3 = getHistData(3)
head(ts3)

cbind(ts1,ts2,ts3)

更新：这将允许您构建表而无需手动运行ts1，ts2，ts3

library(zoo)
stockPrice <- zoo()

for (i in 1: length(portfolio$Code)) {
  ts <- getHistData(i)
  stockPrice <- zoo(merge(ts, stockPrice, all=TRUE))
}

head(stockPrice)