如何用quantmod同时绘制8张图表？优先内存合并转PDF方案

嘿，选方案1绝对是明智之举！直接在内存里生成图表再导出成PDF，不仅能省掉来回读写PNG文件的麻烦，还能保留矢量图的高清质感，比转格式再合并高效太多了。下面给你两种常见的实现方式，按需选择：

方式1：每页一张图表（生成8页PDF） #

这种方式适合需要每张图表独立一页的场景，代码简单直观：

library(tidyverse)
library(quantmod)

# 定义股票代码列表
stock_tickers <- c("AAL","DAL","UAL","LUV","FDX","ALK","JBLU","HA")

# 批量获取雅虎财经数据
getSymbols(stock_tickers, src = "yahoo")

# 定义技术指标的复用字符串，避免重复编写
ta_indicators <- "addSMA(200, col='orange'); addSMA(65, col='red')"

# 打开PDF设备，设置尺寸为8.5×11英寸（符合标准纸张大小）
pdf("stock_charts_single_page.pdf", width = 8.5, height = 11)

# 循环绘制每张图表
for(ticker in stock_tickers) {
  # 获取当前股票的数据
  stock_data <- get(ticker)
  # 绘制带SMA指标的折线图
  chartSeries(stock_data, 
              type = "line",
              subset = 'last 60 months', 
              TA = ta_indicators,
              name = ticker) # 显示股票代码作为图表标题
}

# 关闭PDF设备，完成导出
dev.off()

方式2：一页布局8张图表（网格排列） #

如果希望把所有图表放在同一页，用par(mfrow)设置网格布局即可，记得调整边距避免图表重叠：

library(tidyverse)
library(quantmod)

stock_tickers <- c("AAL","DAL","UAL","LUV","FDX","ALK","JBLU","HA")
getSymbols(stock_tickers, src = "yahoo")
ta_indicators <- "addSMA(200, col='orange'); addSMA(65, col='red')"

# 打开PDF设备
pdf("stock_charts_grid.pdf", width = 8.5, height = 11)

# 设置2行4列的网格布局，同时调整边距（mar参数：下、左、上、右边距，单位为行）
par(mfrow = c(2, 4), mar = c(2, 2, 1, 0.5))

for(ticker in stock_tickers) {
  stock_data <- get(ticker)
  chartSeries(stock_data, 
              type = "line",
              subset = 'last 60 months', 
              TA = ta_indicators,
              name = ticker,
              axes = TRUE) # 确保坐标轴正常显示
}

dev.off()

额外优化建议 #

• 数据管理更整洁：可以把股票数据存放在列表中，避免污染全局环境：

  # 批量获取数据并存入列表
  stock_list <- lapply(stock_tickers, function(t) {
    getSymbols(t, src = "yahoo", auto.assign = FALSE)
  })
  names(stock_list) <- stock_tickers
  
  # 循环时直接从列表取数据
  for(ticker in names(stock_list)) {
    chartSeries(stock_list[[ticker]], ...) # 其他参数同上
  }
  

• 边距调整：如果图表标题、坐标轴重叠，微调par(mar)的数值即可，比如减小边距给图表更多空间。

为什么方案1更好？

• 全程内存操作，没有中间PNG文件，速度更快还不用清理临时文件；
• PDF导出的是矢量图，放大缩小都不会模糊，比转PNG再合并的位图清晰度高一大截；
• 代码逻辑更连贯，不需要额外引入图片处理包（比如magick）来合并PNG。

内容的提问来源于stack exchange，提问作者AG1