按照lz的方法估计可能有难度，因为mfrow这样一分的话等于分成了四个作图设备，之后做的任何操作都只针对第四幅图，如果用基础作图系统的话，我有一个不算办法的办法，lz可以用layout()函数，把区域分成五分，2*1*2，然后中间空的那部分lz可以用来添加标签。
就像这样：
nf<-matrix(c(1,2,3,3,4,5),3,2,byrow = TRUE);
layout(nf)
plot(1:10,1:10)
plot(1:10,1:10)
plot(1:10,1:10,col=bg)
text(5,5,"标签")
plot(1:10,1:10)
plot(1:10,1:10)
layout的具体用法lz可以去看下help，写的挺详细的。
希望对你有用。

谢谢！
做完图以后，发现标签所占的位置太多了，整个图布局不好看。不过我觉得你的想法非常有创意！
我想再请教一个问题，在作图以后打印的图形有时候会出现莫名的横线，请问你遇到过这种问题吗？

在layout函数里每块作图区域长宽是可以调的，楼主可以再试试，help里有示例。
楼主要是觉得有用的话就加点分吧 哈哈
横线这个问题好像没碰到过，我一般都是用postscript的。会不会是你在设置图形参数的时候无意中设置了什么？par这种函数是永久设置的

谢谢！