如何在R中返回具有单个处理程序的函数中的组合绘图对象

# 安装并加载所需的库
install.packages("ggplot2")
install.packages("gridExtra")
library(ggplot2)
library(gridExtra)

# 创建一个函数，生成要组合的绘图对象
combine_plots <- function() {
  # 创建第一个绘图对象
  plot1 <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
    geom_point() +
    labs(title = "Scatter Plot")

  # 创建第二个绘图对象
  plot2 <- ggplot(data = iris, aes(x = Species, fill = Species)) +
    geom_bar() +
    labs(title = "Bar Plot")

  # 使用grid.arrange()函数将绘图对象组合在一起
  combined_plots <- grid.arrange(plot1, plot2, nrow = 1)

  # 返回组合绘图对象
  return(combined_plots)
}

# 调用函数并返回组合绘图对象
combined_plots <- combine_plots()