Quantmod参数没有引号

时间:2018-06-16 12:25:42

标签: r finance quantmod

我有以下代码:

Port

想法是有一个产生两个图表的函数然后将它导出到.pdf但是chartSeries函数不想在引号中使用参数,而不是“GOOGL”你需要拥有GOOGL相反getSymbols使用引号因此你需要有“GOOGL”。

现在我创建了一个带有两个参数的版本,一个带引号,另一个没有它,如何强制它只使用一个参数?即作为参数,我想要“GOOGL”或GOOGL,但不能同时具有两者

1 个答案:

答案 0 :(得分:2)

让公司为您的职能提供代号参数。然后在auto.assign = FALSE调用中使用getSymbols(),这样您就可以将每个代码的数据分配给特定对象。然后你可以在这两个对象上调用chartSeries()

这是您的功能的更新版本,可以完成我的建议:

stockValuation <-
function(ticker1, ticker2, from = "2018-01-01", to = "2018-05-20")
{
  a <- getSymbols(ticker1, from = from, to = to,
                  src = "yahoo", auto.assign = FALSE)
  b <- getSymbols(ticker2, from = from, to = to,
                  src = "yahoo", auto.assign = FALSE)

  chartSeries(a, multi.col = TRUE, theme = "white", TA = "addMACD()") 
  dev.copy(pdf, paste0(ticker1, ".pdf"))
  dev.off()

  chartSeries(b, multi.col = TRUE, theme = "white", TA = "addMACD()") 
  dev.copy(pdf, paste0(ticker2, ".pdf"))
  dev.off()
}