在R中使用grid.arrange放置行和列标题

install.packages("gridExtra")
library(gridExtra)

library(ggplot2)
plot1 <- ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point()
plot2 <- ggplot(data = iris, aes(x = Petal.Length, y = Petal.Width)) + geom_point()

library(grid)
row_title <- textGrob("行标题", gp = gpar(fontsize = 14, fontface = "bold"))
col_title <- textGrob("列标题", gp = gpar(fontsize = 14, fontface = "bold"))

grid.arrange(arrangeGrob(row_title, nullGrob(), col_title, ncol = 3),
             plot1, plot2, ncol = 3, heights = c(0.1, 1))