r - 具有高级绘图功能的多个绘图，尤其是 plot.rqs()

Question

我正在尝试将两个回归摘要与一个居中标题并排绘制。每个回归摘要均由 plot.rqs() 生成，共计 9 个图。

我已经尝试使用 par(mfrow=c(1,2))，但正如我从 Paul Murrel(2006 年)的书中了解到的，高级函数如 plot. rqs() 或 pairs() 在绘制之前保存图形状态，然后在完成后恢复图形状态，以便抢先调用 par()或者 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() 函数？

谢谢

Answer 1

您可以按如下方式修补函数:使用 dput 和 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))