如何在布局图周围绘制框？

Question

我正在尝试使用以下代码在布局周围绘制框。

set.seed(5)
x <- rnorm(200)
y <- 25 - 22*x + 5*x^2 + rnorm(200)

png("layout1.png")
box()                      #this does not draw box 
par(mfrow=c(2,2))
par(mar=c(0.5, 4.5, 0.5, 0.5))
boxplot(x, horizontal=TRUE, axes=FALSE)
plot(0, type="n", xlab="", ylab="", axes=FALSE)
par(mar=c(4.5, 4.5, 0.5, 0.5))
plot(x, y)
text(0.5, 85, "par(mfrow)", cex=2)
par(mar=c(4.5, 0.5, 0.5, 0.5))
boxplot(y, axes=FALSE)
dev.off()

但它似乎没有起作用。如何在图表周围添加框（有布局）？