如何使用grid.raster在列表中的每个ggplot对象上覆盖图像？

# 首先，确保安装并加载了必要的包
install.packages("ggplot2")
install.packages("gridExtra")
library(ggplot2)
library(gridExtra)

# 创建一些示例ggplot对象
p1 <- ggplot(mtcars, aes(x=mpg, y=disp)) + geom_point()
p2 <- ggplot(mtcars, aes(x=hp, y=wt)) + geom_point()

# 将ggplot对象放入一个列表中
plots <- list(p1, p2)

# 加载一张示例图像（这里使用了一个内置的R图像）
img <- system.file("img", "Rlogo.png", package="png")
rasterGrob <- rasterGrob(readPNG(img))

# 创建一个函数，用于在每个ggplot对象上覆盖图像
add_image_to_plot <- function(plot, image) {
  grid.arrange(plot, image, ncol=1, layout_matrix=matrix(c(1, 2), nrow=2))
}

# 对列表中的每个ggplot对象应用这个函数
plots_with_images <- lapply(plots, add_image_to_plot, image=rasterGrob)

# 显示结果
plots_with_images[[1]] # 显示第一个带有图像的ggplot对象
plots_with_images[[2]] # 显示第二个带有图像的ggplot对象