如何减少绘图输出空间

Question

我使用Markdown撰写我的论文论文 基本上我拆分屏幕将两个情节安排在一个，但我想减小整个情节的大小。所以我这样做了：

figs <- rbind(c(0, 0.5, 0, 0.8),   # Screen1 reduced from 1 to 0.8
              c(0.5, 1, 0, 0.8))    # Screen2 reduced from 1 to 0.8

colnames(figs) <- c("W", "E", "S", "N")
rownames(figs) <- c("Screen1", "Screen2")
screenIDs <- split.screen(figs)
names(screenIDs) <- rownames(figs)

# Left Side plot:
screen(screenIDs["Screen1"])
par(mar=c(4,4,2,1)+.1)
qqnorm(...)
qqline(...)

op <- par(fig=c(0.01,.3,.35,.78), new=TRUE)
hist(...)
lines(a,dnorm(a,mean(residuals.arima), sd(residuals.arima)), lty=1, col="darkblue", lwd=2)
box()
par(op)

#Right side plot:
screen(screenIDs["Screen2"]) 
par(mar=c(4,4,2,1)+.1)

plot(...)
lines(...)

不幸的是，我得到的是以下内容（我突出了红色的额外空间）：

所以看起来我只是缩小了绘图大小而不是总绘图输出大小。 我怎么处理它？我不想用我的照片填补空白，因为它太大了。