Question

我有以下代码：

Port

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

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

Answer 1

让公司为您的职能提供代号参数。然后在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()
}

Quantmod参数没有引号

1 个答案: