在R中的多个图之外绘制图例

Question

我正在尝试使用以下代码在多个绘图之外绘制图例：

par(mfrow=c(3,3))
    par(oma = c(4, 2, 1, 1))
    plot(1)
    plot(2)
    plot(3)
    plot(4)
    plot(5)
    plot(6)
    plot(7)
    plot(8)
    plot(9)
    legend("bottom", inset = 0, legend = c("a", "b", "c", "d"), col= c("steelblue4", "lightseagreen", "paleturquoise", "gray87"),  bty = "n", horiz = T,  lwd = 5, xpd = T)

但是图例位于情节区域之一内

我该如何解决？