我正在尝试将两个回归摘要与一个居中标题并排绘制。每个回归摘要均由 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()
函数?
谢谢
最佳答案
您可以按如下方式修补函数:
使用 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))
关于r - 具有高级绘图功能的多个绘图,尤其是 plot.rqs(),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9660614/