在ggarrange中有没有一种方法来包装情节标题呢？

library(ggplot2)
library(ggpubr)

# 创建一个示例数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(2, 4, 6, 8, 10)
)

# 创建两个示例情节
plot1 <- ggplot(data, aes(x, y)) + geom_point() + ggtitle("Plot 1")
plot2 <- ggplot(data, aes(x, y)) + geom_line() + ggtitle("Plot 2")

# 使用ggarrange包装情节标题
arranged_plot <- ggarrange(plot1, plot2, ncol = 2, nrow = 1, 
                           common.legend = TRUE, legend = "bottom")

# 显示包装后的情节
print(arranged_plot)