同じプロットに複数の較正曲線を追加する方法

Question

set.seed(888) 
y<-sample(c(0,1), 100, replace = TRUE) 
x1<-rnorm(100,2,3) 
x2<-rnorm(100,1,4) 
library(rms) 
f1<-lrm(y~x1,,x=TRUE,y=TRUE) 
f2<-lrm(y~x2,,x=TRUE,y=TRUE) 
plot(calibrate(f1)) 
plot(calibrate(f2),add=TRUE) 

上記のコードでは、両方の較正プロットを同じ図に追加することになっています。

警告メッセージ：

1：plot.windowで（...）： "追加" は、グラフィカルパラメータ
2ではありません。しかし、それはエラーを報告しplot.xy（XY、タイプで、...）： "add"はグラフィカルパラメータではありません
3：軸方向（横=横、アトリビュート=ラベル、...）：「追加」は グラフィックパラメータ
4：In "追加"はありません グラフィックパラメータ
5：ボックス内（...）： "追加"はグラフィカルパラメータではありません（サイド=サイド、サイド=、ラベル=ラベル、...）
6をETER：タイトルでは（...）：「追加」グラフィカルパラメータ

がされていないか、またはこの目的のために他の方法があるのですか？また、x1とx2の曲線に異なる色を指定したいと思います。引数par.corrected=list(col="blue")の指定方法がわかりません。それは動作しません。

plot(calibrate(f2),par.corrected=list(col="blue",lwd=2)) 

#n=100 Mean absolute error=0.061 Mean squared error=0.00541 
#0.9 Quantile of absolute error=0.109 

警告メッセージ：

1：plot.windowで（...） "par.correctedは" グラフィカルパラメータ2ない：plot.xy（XY、タイプにおいて 、。 ..）： "par.corrected"はグラフィカルパラメータではありません 3：軸（側=側、ラベル=ラベル、...）：
"par.corrected"はグラフィカルパラメータではありません4：Inat、labels = labels、...）： "par.corrected"はグラフィックではありません パラメータ5：ボックス内（...）： "par.corrected"はグラフィカルパラメータ012ではありません6：タイトル（...）では：rmsパッケージでグラフィカルなパラメータではありません

Answer 1

を「par.corrected」plot.calibrate機能は、リスク分布を示すヒストグラムが衝突する一部ので、add=TRUEを実装していません。コードを見ることで、必要なプロットを作成するための独自のプロット関数を作成することは難しくないことがわかります。