使用 R quantmod getSymbols 函数提示用户输入以下载刻度数据答案

【问题标题】：Prompting for user input to download tick data using R quantmod getSymbols function使用 R quantmod getSymbols 函数提示用户输入以下载刻度数据
【发布时间】：2011-10-07 23:30:53
【问题描述】：

我想提示用户在控制台输入股票代码（例如 GOOG），然后使用 R 的 quantmod 包中的 getSymbols 函数下载给定股票代码的刻度数据并使用 quantmod 的 barChart 函数创建图.

我有

s1 <- readline("enter a symbol: ")
getSymbols(cat('"',s1,'"',sep=""),src="yahoo")
barChart(s1)

我收到以下错误消息“try.xts(x, error = "chartSeries requires an xtsible object") 中的错误： chartSeries 需要一个 xtsible 对象"

仅使用控制台（不提示输入）我得到以下工作：

> getSymbols("GOOG",src="yahoo")
[1] "GOOG"
> barChart(GOOG)

我错过了什么？

【问题讨论】：

标签： r quantmod

【解决方案1】：

s1 是一个字符串，它不是可强制转换为 xts 的时间序列对象（如错误所示）

试试：

s1 <- "AAPL"
getSymbols(s1)
barChart(get(s1))

【讨论】：

如果你在方框中打勾接受他的答案作为正确答案，你会让杰夫成为一只快乐的兔子！

【解决方案2】：

你不需要cat 和s1 是一个字符向量。 @Jeff 解决方案的另一个选项是关闭自动分配：

s2 <- getSymbols(s1, auto.assign=FALSE)
barChart(s2)

图表的名称将是“s2”，但您可以使用 name 参数将其更改回股票代码：

barChart(s2, name = s1)

【讨论】：