Сохраните несколько графиков в одном цикле (R)

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 график.Есть идеи?

РЕШЕНИЕ

Ключ скрыт здесь , plot необходимо напечатать - print(plot(...))