并排图的通用标题

Question

让我们考虑一个非常简单的情节并尝试命名它

library(ggplot2)
plot_1 <- ggplot() + aes(x = 1:10, y = 1:10) + geom_line()
patchwork::wrap_plots(plot_1, plot_1, plot_1, ncol = 1, nrow = 3) + ggtitle("a") 

但是，此代码只会命名最后一个图：

有没有可能我可以为整个情节命名，而不仅仅是最后一个情节？即在黑色矩形的地方有一个名字

Answer 1

你想要plot_annotation

library(ggplot2)
library(patchwork)
plot_1 <- ggplot() + aes(x = 1:10, y = 1:10) + geom_line()
wrap_plots(rep(list(plot_1), 4), ncol = 2, nrow = 2) + 
  plot_annotation(title = "a")&
  theme(plot.title = element_text(hjust = .5))

^{由reprex package (v1.0.0) 于 2021 年 3 月 3 日创建}