Как добавить одну подпись под массив графиков?

Question

Основываясь на решениях этот вопрос Я ищу способ добавить подпись.

par(mfrow=c(2, 2), oma=c(2, 2, 0, 0)+0.1)

lapply(unique(iris$Species), function(x) 
  with(iris[iris$Species == x, ], 
       plot(Sepal.Length, type="l", col="orange", ylab="", xlab=x)))
mtext("Index", side=1, outer=TRUE)
mtext("Sepal.Length", side=2, outer=TRUE)
text(1, 1, "my caption")  # no effect

Результат должен выглядеть примерно так:

Answer 1

Вы можете добавить заголовок, используя mtext, и выровнять текст по левой стороне, используя аргумент adj (для side=1, "adj = 0 означает выравнивание по левому краю")

ТакВы можете использовать

mtext("my caption", side=1, outer=TRUE, adj=0)

Вы можете добавить немного вертикального расстояния между заголовком и осью X, используя аргумент line, хотя величина расстояния будет ограничена соответствующим параметром oma,

Например, с помощью

par(oma=c(4, 2, 0, 0)+0.1)

Вы можете использовать заголовок на три строки ниже заголовка оси, используя line=3

mtext(~italic("my caption"), side=1, outer=TRUE, adj=0, line=3)