quantmod 函数中的 fix.by(by.y, y) 错误

Question

我正在尝试使用 quantmod 将数据拉入 r。我使用“getQuote”函数收到“fix.by(by.y, y) 中的错误：'by' 必须指定唯一有效的列”。

使用手写的几只股票列表 (tickers<-c("CCL","RCR","BA")) 时我没有收到此错误，但是当我尝试使用从交易所提取的代码列表时收到此错误。

有人知道解决办法吗？

谢谢

library(tidyquant) # edited to be included/ it is needed
library(quantmod)

AMEX <-
  tq_exchange("AMEX")

tickers <- AMEX$symbol

key_metrics <- what_metrics <- yahooQF(c( 
  # source information
  "Symbol", 
  "Name",
  "Dividend Yield", 
  "Earnings/Share",
  "P/E Ratio",
  "trailingPE",
  "quoteSourceName",
  "Source Interval",
  "Exchange Full Name",
  "Exchange Data Delay",
  "Currency"))

metrics <- getQuote(paste(tickers, sep="", collapse=";"), what=what_metrics)

#downloading set: 1 , 2 , ...done
#Error in fix.by(by.y, y) : 'by' must specify a uniquely valid column

Answer 1

问题是您有很多对雅虎无效的代码。所有带有“。”的代码。或“^”不返回来自 yahoo Finance 的数据。例如，您可以在雅虎财经网站上查看“BIOX.WS”。奇怪的是，当这些被调用时，json 调用不会返回错误，因为 yahoo 不会产生错误，而是返回一个空列表。否则，该函数将给出正确的错误响应，而不是您当前遇到的错误。

如果您删除这些代码，getQuote 函数将起作用。

# remove tickers which have . or ^ in the symbol
tickers <- AMEX$symbol[!grepl("\\.|\\^", AMEX$symbol)]

metrics <- getQuote(paste(tickers, collapse=";"), what=what_metrics)