高レベルのプロット関数、特にplot.rqs（）を使用した複数のプロット

Question

私は1つの中心のタイトルで2つの回帰サマリーを並べてプロットしようとしています。各回帰サマリーはplot.rqs()によって生成され、9つのプロットの集合になります。

私はすでにpar(mfrow=c(1,2))を使用してみましたが、私はポールムーレルの（2006）の本から学んだように、plot.rqs()またはpairs()のような高レベルの機能を描画する前に、グラフィックスの状態を保存し、一度完成し、グラフィックス状態を復元、事前いるのでpar()またはlayout()への先制的な呼び出しは私を助けません。 plot.rqs()には 'panel'機能もありません。

結果を達成するための唯一の方法は、新しい機能を得るために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)) 

Answer 2

最初に、例オブジェクトfmを生成します。次に、plot.rqsをコピーし、コピー内にtraceを使用して、par <- listを挿入すると、機能内でparの使用が無効になります。それではplot.summary.rqsと同じことをします。

library(quantreg) 
example(plot.rqs) # fm to use in example 

# plot.rqs 
plot.rqs <- quantreg::plot.rqs 
trace("plot.rqs", quote(par <- list), print = FALSE) 

# plot.summary.rqs 
plot.summary.rqs <- quantreg::plot.summary.rqs 
trace("plot.summary.rqs", quote(par <- list), print = FALSE) 

# test it out 
op <- par(mfrow = c(2, 2)) 

plot(summary(fm)) 
plot(fm) 
title("My Plots", outer = TRUE, line = -1) 

par(op) 

EDIT：最後に、我々はpar私たち自身でそれをテストplot.summary.rqsを追加しました。