R：par（mfrow = c（4,2））表现不尽如人意

Question

我正在尝试打印80页的股票图表，并且希望每页大约8页（4行，2列），每页10页。在制作中，我将从CSV文件中获取股票，然后循环浏览列表。

我期望在1页的pdf上有4行2列，而是创建了8页的pdf。关于如何解决这个问题的任何提示？

foo.R

suppressWarnings(suppressMessages(library(quantmod)))
options("getSymbols.warning4.0"=FALSE)
options("getSymbols.yahoo.warning"=FALSE)

# get 8 symbols
getSymbols("AAPL")
getSymbols("GOOG")
getSymbols("FB")
getSymbols("TSLA")
getSymbols("GM")
getSymbols("F")
getSymbols("INTC")
getSymbols("AMD")

pdf(file="foo.pdf")
par(mfrow=c(4,2))

lineChart(AAPL)
lineChart(GOOG)
lineChart(FB)
lineChart(TSLA)
lineChart(GM)
lineChart(F)
lineChart(INTC)
lineChart(AMD)

dev.off()