如何通过循环遍历R中的垂直数据框来创建多个绘图？

# 假设我们有一个包含多个垂直数据框的列表
data_frames <- list(df1, df2, df3)

# 创建一个空的绘图设备
plot_new <- function() {
  plot(0, 0, xlim = c(0, 1), ylim = c(0, 1), type = "n", xlab = "", ylab = "")
}

# 使用循环遍历垂直数据框，并在每个数据框上创建绘图
for (i in seq_along(data_frames)) {
  # 创建新的绘图设备
  plot_new()
  
  # 在当前绘图设备上绘制数据框中的内容
  plot(data_frames[[i]])
  
  # 添加标题
  title(main = paste("Plot", i))
  
  # 保存绘图
  filename <- paste("plot", i, ".png", sep = "")
  savePlot(filename)
  
  # 打印绘图的文件名
  cat("Saved plot as", filename, "\n")
}