为ggplot中的多个图添加带线/箭头的通用轴标题

install.packages("ggplot2")
install.packages("gridExtra")
install.packages("cowplot")

library(ggplot2)
library(gridExtra)
library(cowplot)

# 创建第一个图形对象
plot1 <- ggplot(mtcars, aes(x = mpg, y = wt)) +
  geom_point() +
  labs(x = "Miles per Gallon", y = "Weight")

# 创建第二个图形对象
plot2 <- ggplot(mtcars, aes(x = mpg, y = hp)) +
  geom_point() +
  labs(x = "Miles per Gallon", y = "Horsepower")

# 创建第三个图形对象
plot3 <- ggplot(mtcars, aes(x = mpg, y = qsec)) +
  geom_point() +
  labs(x = "Miles per Gallon", y = "Quarter Mile Time")

# 组合图形对象并添加通用轴标题
combined_plot <- grid.arrange(plot1, plot2, plot3, ncol = 1,
                              top = textGrob("Common X-Axis Title", gp = gpar(fontsize = 14)),
                              left = textGrob("Common Y-Axis Title", rot = 90, gp = gpar(fontsize = 14)))

# 显示组合后的图形
print(combined_plot)