如何在一系列绘图下添加单个标题？

Question

基于this 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表示左对齐”）< / p>

因此您可以使用

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

您可以使用line参数在标题和x轴之间添加一些垂直距离，尽管距离的数量将受到相关oma参数的限制。

例如，使用

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

您可以使用line=3

将标题放在轴标题下三行

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