我正在尝试每天运行一个脚本来分析今天从筛选器中选择的股票的今天价格。
为此,我已经加载了一个带有数据的csv文件,其中一列标题为" Ticker",并清理它以获得我感兴趣的股票,例如Apple,谷歌和微软。
然后我用这段代码创建一个向量:
tickers <- paste(shQuote(data$Ticker), collapse = ", ")
当我尝试运行quantmod以降低价格时:
today <- getQuote(tickers)
我在下载时出错,但如果我这样编码:
today <- getQuote(c("AAPL", "GOOG", "MSFT")
它将细节拉得很好,我可以继续。
由于大多数时间都有超过80种股票,我想自动化,但很明显我做错了什么 - 有什么想法吗?
答案 0 :(得分:0)
我相信你只需要打电话
getQuote(data$Ticker)
。
如果data$Ticker
是factor
,则只需将其转换为字符。那是,
getQuote(as.character(data$Ticker))
。
我希望这有帮助!
答案 1 :(得分:0)
也许你需要独特的股票代码?
tickers <- paste(unique(shQuote(data$Ticker)), collapse = ", ")