如何将导入的图像与其他R图合并？

library(ggplot2)
library(gridExtra)

# 导入图像
image <- readPNG("image.png")

# 生成其他R图
plot1 <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point()

plot2 <- ggplot(data = mtcars, aes(x = mpg, y = wt)) +
  geom_point()

# 将其他R图转换为grid图形对象
plot1_grob <- ggplotGrob(plot1)
plot2_grob <- ggplotGrob(plot2)

# 合并图像和其他R图
merged_plot <- grid.arrange(
  arrangeGrob(
    rasterGrob(image, interpolate = TRUE),
    plot1_grob,
    nrow = 1
  ),
  plot2_grob,
  nrow = 2
)

# 调整布局和样式
merged_plot <- merged_plot +
  theme(plot.margin = unit(c(1, 1, 1, 1), "cm"))

# 导出合并后的图像
ggsave("merged_plot.png", merged_plot, width = 10, height = 8, dpi = 300)