Common main title of a figure panel compiled with par(mfrow)

This should work, but you’ll need to play around with the line argument to get it just right:

par(mfrow = c(2, 2))
plot(iris$Petal.Length, iris$Petal.Width)
plot(iris$Sepal.Length, iris$Petal.Width)
plot(iris$Sepal.Width, iris$Petal.Width)
plot(iris$Sepal.Length, iris$Petal.Width)
mtext("My 'Title' in a strange place", side = 3, line = -21, outer = TRUE)

mtext stands for “margin text”. side = 3 says to place it in the “top” margin. line = -21 says to offset the placement by 21 lines. outer = TRUE says it’s OK to use the outer-margin area.

To add another “title” at the top, you can add it using, say, mtext("My 'Title' in a strange place", side = 3, line = -2, outer = TRUE)