par()并非万能的，你的问题就是一例。正好也是我想搞清楚的问题，以下代码供参考。
<br />
library(VennDiagram)<br />
library(grid)<br />
library(gridBase)<br />
library(lattice)<br />
x11(13,7)<br />
temp1 <- draw.pairwise.venn(100,200,30, scaled=F)<br />
temp2 <- draw.pairwise.venn(100,90,30, scaled=F)<br />
plot.new()<br />
gl <- grid.layout(nrow=1, ncol=2)<br />
vp.1 <- viewport(layout.pos.col=1, layout.pos.row=1)<br />
vp.2 <- viewport(layout.pos.col=2, layout.pos.row=1)<br />
pushViewport(viewport(layout=gl))<br />
pushViewport(vp.1)<br />
par(new=TRUE, fig=gridFIG())<br />
grid.draw(temp1)<br />
popViewport()<br />
pushViewport(vp.2)<br />
grid.draw(temp2)<br />
popViewport()<br />
</p>
