Question

我无法在一个循环中保存多个图形。看起来是开发者。问题。

我正在尝试编写代码，以获取资产清单（行情指示器），下载其价格并在一个循环中生成多个图形：收盘价，收益，ACF函数等...

代码如下：

for (company in X) {

  MainCo <- unlist(company[1])

  getSymbols(MainCo, src = "yahoo", from = period_start, to = period_end)
  ts_main <- get(MainCo)

  png(paste0(MainCo,'_prices.png'))
  plot(ts_main[,6])
  dev.off()

  m_rts <- na.omit(Delt(na.omit(ts_main[,6])))

  png(paste0(MainCo,'_returns.png'))
  plot(m_rts)
  dev.off()

  png(paste0(MainCo,'_ACF.png'))
  acf(m_rts)
  dev.off()
}

我尝试了不同的方法：

在循环结束时仅使用一次dev.off()；
改为使用graphics.off()；
使用dev.copy(...) + dev.off()代替png(...) + dev.off()

上面提到的所有内容都会产生错误，或者仅产生最后一个ACF.png图。有什么想法吗？

解决方案

密钥已隐藏here，需要打印plot-print(plot(...))

在同一循环（R）中保存多个图

0 个答案: