具有高级绘图函数的多个绘图，尤其是plot.rqs()

我正在尝试并排绘制两个回归摘要和一个居中标题。每个回归摘要由以下方式生成plot.rqs()总共有 9 个地块。

我尝试过使用par(mfrow=c(1,2))已经，但正如我从 Paul Murrel (2006) 的书中了解到的，高级函数如plot.rqs() or pairs()绘制前保存图形状态，完成后恢复图形状态，以便抢先调用par() or layout()帮不了我。plot.rqs()也没有“面板”功能。

看来要达到这个结果的唯一方法就是修改plot.rqs()函数来获得一个新函数，比如说modified.plot.rqs()，然后运行

par(mfrow=c(1,2))
modified.plot.rqs(summary(fit1))
modified.plot.rqs(summary(fit2))
par(mfrow=c(1,1))

从那里我也许能够弄清楚如何使用以下命令向图像添加整体标题layout()。有谁知道如何创建一个modified.plot.rqs()可以用这种方式使用的功能吗？

Thanks

您可以按如下方式修补函数： 使用dput and capture.output检索 函数的代码，作为字符串； 根据需要更改它（在这里，我只是替换每个出现的par具有不执行任何操作的函数）； 最后评估结果以产生一个新函数。

library(quantreg)
a <- capture.output(dput(plot.summary.rqs))
b <- gsub("^\\s*par\\(", "nop(", a)
nop <- function(...) {}
my.plot.summary.rqs <- eval(parse(text=b))