GetQuote：.rowNamesDF <-`（x，值=值）中的错误：无效的'row.names'长度getsymbols

Question

我想从Qunatmod中获取所有符号，并使用所有getquote结果创建一个数据框。

symbols <- stockSymbols()
symbols <- symbols[,1]
symbols <- unique(symbols)

df <- getQuote((symbols))

“下载集：1、2、3，.rowNamesDF<-（x，值=值）中的错误：'row.names'长度无效”

我收到无效的row.names长度错误。

Answer 1

发生这种情况是因为有些符号无法返回。这也可能与Yahoo上的音量限制请求有关。请查看帮助页面以获取详细信息。

解决此问题的一种方法是利用try()。在前1000个符号中，类似这样的内容对我有效：

library(data.table)
dat <- lapply(symbols, function(x) try(getQuote(x)))
#create boolean for the symbols that retuned correctly
is_df <- sapply(dat, is.data.frame)
#bind them together
out <- rbindlist(dat[is_df], use.names = TRUE, fill = TRUE)
#add the names back
out[, Symbol := symbols[is_df]]