r - 如何在R中的多图面板中的图之间或图之间进行注释

Question

如果我在一个面板中有多个图，我希望能够放置跨越多个图区域或在图区域之间的文本注释。我敢肯定必须有一种方法来做到这一点，但是我需要一些帮助来弄清楚如何做。
以下是在一个面板上创建四个图的一些虚假数据:

x1 = rnorm(100)
x2 = rnorm(100)
x3 = rnorm(100)
x4 = rnorm(100)

par(mfrow=c(2,2)) 
hist(x1, xlab="", main="Group A")
hist(x2, xlab="", main="Group B")
hist(x3, xlab="", main="")
hist(x4, xlab="", main="")

这将在下面创建多图面板，除了我还添加了红色文本。在R中创建图形面板后，我通过注释PDF文件添加了红色文本，然后将其另存为PDF。我想学习的是如何在R中以编程方式注释图形面板，而不是必须保存它并注释保存的文件。
通常，我只是使用 text()或 mtext()添加注释。但这仅在注释单个图形时有效。有没有一种方法可以相对于4个图形的整个面板的坐标添加注释？我现在正在寻找基础图形中的解决方案，但是如果有人知道如何在ggplot2或点阵中执行类似的操作，那么我也很乐意看到它。

Answer 1

如果您确实希望更好地控制这些布局问题，则可以使用适当命名的layout。

m <- matrix(c(1,2,3,3,4,5,6,6),ncol = 2,byrow = TRUE)
layout(m,widths = c(0.5,0.5),heights = c(0.45,0.05,0.45,0.05))

par(mar = c(2,4,4,2) + 0.1)
hist(x1, xlab="", main="Group A")
hist(x2, xlab="", main="Group B")

par(mar = c(0,0,0,0)) 
plot(1,1,type = "n",frame.plot = FALSE,axes = FALSE)
u <- par("usr")
text(1,u[4],labels = "Here",col = "red",pos = 1)

par(mar = c(2,4,2,2) + 0.1)
hist(x3, xlab="", main="")
hist(x4, xlab="", main="")

par(mar = c(0,0,0,0)) 
plot(1,1,type = "n",frame.plot = FALSE,axes = FALSE)
u <- par("usr")
text(1,u[4],labels = "Here",col = "red",pos = 1)