将图例置于 r 中两个图下方的中心

我想在两个图下方集中一个常见的图例。我用过xpd=TRUE允许在图本身之外进行打印，并为图例创造空间。然而，图例不会水平移动，并且会被“提前”垂直剪切。有什么建议吗？

quartz(title="PCoA",12,6)
par(mfrow=c(1,2),oma=c(5,0,0,0),xpd=TRUE)

plot(1:3,4:6,main="plot 1")

plot(1:3,4:6,main="plot 2")


# Clips the plot    
legend(1,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"),fill=c("green","orange","red"), title="Fetch")

# Won't let me move the legend sideways 
legend(0,3.5,ncol=3,c("0-1 km","1-5 km","outside barrier"),fill=c("green","orange","red"), title="Fetch")

UPDATE

使用下面的解决方案，它会剪切图形的边缘，通过拖动边缘更改图形的尺寸，图形的边缘变得可见（见下文）。有什么想法可能会发生什么吗？

而不是使用par=mfrow(...)我建议你使用layout().

这允许您指定具有绘图位置的矩阵：

layout(matrix(c(1,2,3,3), ncol=2, byrow=TRUE), heights=c(4, 1))

par(mai=rep(0.5, 4))
plot(1:3,4:6,main="plot 1")
plot(1:3,4:6,main="plot 2")

par(mai=c(0,0,0,0))
plot.new()
legend(x="center", ncol=3,legend=c("0-1 km","1-5 km","outside barrier"),
       fill=c("green","orange","red"), title="Fetch")