让我们考虑非常简单的情节并尝试命名它
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")
但是,此代码只会命名最后一个图:
有没有可能我可以为整个情节命名,而不仅仅是最后一个?即在黑色矩形的地方有一个名字
你要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 包于 2021-03-03 创建(v1.0.0)