Из-за конфиденциальности данных я использую mtcar набор данных в ggplot2, чтобы объяснить свой вопрос.
Всего четыре сюжета:
g1 <- ggplot(mtcars,aes(mpg,wt)) + geom_point()
g2 <- ggplot(mtcars,aes(mpg,disp)) + geom_point()
g3 <- ggplot(mtcars,aes(mpg,drat)) + geom_point()
g4 <- ggplot(mtcars,aes(mpg,qsec)) + geom_point()
Я хочу поместить эти четыре графика в один график, поэтому я использую функцию grid.arrange() в пакете grid.Extra:
grid.arrange(g1,g2,g3,g4,ncol=2)
А теперь я хочу добавить заголовок под каждым графиком на этом графике, примерно как на картинке ниже (я изменил его в Word, поэтому он некрасивый) 
Прежде чем спрашивать, я поискал в SO, и я знаю, как добавить заголовок под одним сюжетом, например, использовать grid.text() или эти три метода Отображение текста под графиком, созданным ggplot2 или element_text(vjust=-10), но я не могу применить его к четырем графикам на одном графике. Между тем, у меня есть некоторые результаты в базовом графике Как добавить заголовок к каждому графику в R? или Обычный основной заголовок панели рисунков, скомпилированной с помощью par (mfrow), вопрос заключается в том, что я хочу провести его в ggplot2, и заголовок находится под каждым графиком, как мне его реализовать? Спасибо!
