使用 R quantmod getSymbols 函数提示用户输入以下载报价数据

Question

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

我

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

收到以下错误消息“try.xts(x, error =“chartSeries 需要 xtsible 对象”) 中的错误： ChartSeries 需要 xtsible 对象”

仅使用控制台（不提示输入）我可以得到以下结果：

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

我缺少什么？

Answer 1

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

尝试：

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

Answer 2

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

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

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

barChart(s2, name = s1)