回复 第1楼 的 pt_job：还可以用print函数，想画那就就画那里，只是需要自己计算位置。另外底层绘图函数不能用了，只用用lattice，ggplot2。例如
<br />
df <- as.data.frame(list(x = 1:10, y = 1:10))<br />
library(lattice)</p>
<p>p <- xyplot(y~x, data = df)<br />
print(p, position = c(0, 0.67, 0.33, 1), more = TRUE)<br />
print(p, position = c(0.33, 0.33, 0.67, 0.67), more = TRUE)<br />
print(p, position = c(0.67, 0, 1, 0.33))</p>
<p>windows()<br />
library(ggplot2)<br />
library(grid)<br />
p <- ggplot(df) + geom_point(aes(x,y))<br />
print(p, vp = viewport(0.25, 0.75, 0.5, 0.5), more = TRUE)<br />
print(p, vp = viewport(0.75, 0.25, 0.5, 0.5))</p>
<p>
</p>
