在主体中使用ggplot创建一个函数，并在每次调用中生成两个plot输出

generate_plots <- function() {
  
  # 创建第一个plot
  plot1 <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
    geom_point() +
    labs(title = "花瓣长度与花瓣宽度关系图",
         x = "花瓣长度",
         y = "花瓣宽度",
         color = "物种") +
    theme_minimal()
  
  # 创建第二个plot
  plot2 <- ggplot(data = mtcars, aes(x = mpg, y = hp, color = factor(cyl))) +
    geom_point() +
    labs(title = "汽车每加仑里程与马力关系图",
         x = "每加仑里程",
         y = "马力",
         color = "气缸数") +
    theme_minimal()
  
  # 返回plot对象的列表
  return(list(plot1, plot2))
  
}

plots <- generate_plots()
plots[[1]]  # 输出第一个plot
plots[[2]]  # 输出第二个plot