用layout应该可以实现你的目的
layout(matrix(c(1,2,15,16,3,4,17,18,5,6,19,20,7,8,21,22,9,10,23,24,
11,12,25,26,13,14,27,28),byrow = T,nr=7,nc=4),
widths = c(1.25,1,1.25,1),heights = c(1,1,1,1,1,1,1.4))
#layout.show(28)
par(oma=c(0,0,0.3,0))
for(i in c(1:13)){
if(i %% 2 ==0){
par(mar=c(0,0,0,0.2))
plot(1:10,1:10,xaxt="n",yaxt="n")
}else
if(i!=13){
par(mar=c(0,2.5,0,0))
plot(10:1,10:1,xaxt="n")
}else
{
par(mar=c(2.5,2.5,0,0))
plot(10:1,1:10)
}
}
axis(side = 1)
plot(1,1,type="n",bty="n",xaxt="n",yaxt="n")
