如何使用for循环创建一个函数来获取多个pdf文件(每个id都是唯一的)，并在spearate页面上使用ggplot

library(ggplot2)
library(gridExtra)

generate_pdf <- function(ids) {
  pdf_files <- vector("list", length(ids))  # 创建一个空的列表，用于存储生成的pdf文件
  
  for (i in seq_along(ids)) {
    # 根据每个id生成对应的数据和图形
    data <- get_data(ids[i])  # 根据id获取数据
    plot <- generate_plot(data)  # 根据数据生成图形
    
    # 将图形保存为pdf文件
    pdf_file <- paste0("plot_", ids[i], ".pdf")
    pdf(file = pdf_file)
    print(plot)
    dev.off()
    
    pdf_files[[i]] <- pdf_file  # 将pdf文件路径存储到列表中
  }
  
  return(pdf_files)  # 返回生成的pdf文件列表
}

get_data <- function(id) {
  # 根据id从数据库或其他数据源获取数据
  # 这里只是一个示例，具体实现根据实际情况进行
  data <- read.csv(paste0("data_", id, ".csv"))
  return(data)
}

generate_plot <- function(data) {
  # 使用ggplot2库创建图形
  plot <- ggplot(data, aes(x = x, y = y)) +
    geom_point() +
    labs(title = "Scatter Plot")
  
  return(plot)
}

ids <- c("id1", "id2", "id3")  # 示例id向量
pdf_files <- generate_pdf(ids)  # 调用函数生成pdf文件

# 在separate页面上显示生成的pdf文件
pdf_grid <- do.call(grid.arrange, c(lapply(pdf_files, readPDF), ncol = 1))
grid.newpage()
grid.draw(pdf_grid)