并排图的通用标题

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-03-03 创建

并排图的通用标题

Common title for side by side plots

r

ggplot2

patchwork