如何循环遍历变量绘图并保存至PDF，含单图与合并图需求

没问题，这事儿我熟！刚好可以用R的ggplot2和gridExtra包完美实现你的需求，下面是完整的代码方案，每一步都给你解释清楚：

所需依赖包 #

首先得加载两个核心包：ggplot2用来绘制专业图表，gridExtra用来合并多张图表。如果还没安装，先运行下面的命令安装：

install.packages(c("ggplot2", "gridExtra"))

完整代码 #

假设你已经把数据转成了长格式（比如列名为date、last_price和variable，其中variable对应y1/y2/y3/y4），直接运行下面的代码即可：

# 加载所需包
library(ggplot2)
library(gridExtra)

# 你的变量列表（确保是字符向量，比如c("y1", "y2", "y3", "y4")）
# yieldcurves <- c("y1", "y2", "y3", "y4") # 如果你还没定义，取消注释这行

# 初始化PDF输出，设置页面尺寸（可根据需求调整宽高）
pdf("yield_curves_output.pdf", width = 10, height = 6)

# 第一步：循环绘制单变量图表，每页一张
for (var in yieldcurves) {
  # 筛选当前变量的对应数据
  current_data <- subset(long_data, variable == var)
  
  # 绘制折线图（样式可按需调整）
  single_plot <- ggplot(current_data, aes(x = date, y = last_price)) +
    geom_line(color = "#2c3e50", linewidth = 0.8) +
    labs(title = paste("Yield Curve: ", var, sep = ""),
         x = "Date", y = "Last Price") +
    theme_minimal() +
    theme(plot.title = element_text(hjust = 0.5, size = 12, face = "bold"),
          axis.title = element_text(size = 10))
  
  # 打印图表到PDF（每次print自动生成新页面）
  print(single_plot)
}

# 第二步：绘制合并所有图表的汇总页面
# 批量生成所有变量的小尺寸图表
plot_collection <- lapply(yieldcurves, function(var) {
  plot_data <- subset(long_data, variable == var)
  ggplot(plot_data, aes(x = date, y = last_price)) +
    geom_line(color = "#3498db") +
    labs(title = var, x = "", y = "") +
    theme_minimal() +
    theme(plot.title = element_text(hjust = 0.5, size = 10),
          axis.text = element_text(size = 8))
})

# 将4个图表排列成2行2列的网格，添加总标题
combined_plot <- grid.arrange(grobs = plot_collection,
                              ncol = 2, nrow = 2,
                              top = textGrob("All Yield Curves Overview", 
                                             gp = gpar(fontsize = 14, fontface = "bold")))

# 把汇总图表打印到PDF（这会是最后一页）
print(combined_plot)

# 关闭PDF设备，完成文件保存
dev.off()

关键细节提醒 #

• 如果你的长格式数据里的分组列不是variable，记得把subset(long_data, variable == var)里的variable改成你实际的列名。
• 图表样式（颜色、字体、主题）都可以按需调整，比如把theme_minimal()换成theme_bw()，或者修改geom_line的颜色参数。
• pdf()函数里的width和height可以调整PDF页面大小，适配你的图表展示需求。
• 确保yieldcurves是字符向量（比如c("y1", "y2", "y3", "y4")），这样才能正确匹配长格式数据里的变量名称。

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