r - 伝説を取り除く方法距離プロットをクック

Question

次の簡単な例を想定します。

> numberofdrugs <- rpois(84, 5)
> healthvalue <- rpois(84, 75)
> test <-glm(healthvalue ~ numberofdrugs, family=poisson)
> plot(test, which=5)

クックの距離を示す赤い破線の凡例を取り除く方法を知っている人はいますか?

Answer 1

その行を取り除くことができるかどうかはわかりませんが、そのプロットを手動で作成するだけです。その後、必要な凡例または不要な凡例をすべて追加できます。たとえば、bootパッケージを見てください。

あなたの場合、これはあなたのプロットを行います

plot(y = glm.diag(test)$rp, x = glm.diag(test)$h)

私が知る限り、glm.diag.plots機能もあります。彼らのヘルプページを見てください。

Answer 2

cook.levels点線が生成される数と値を制御するパラメーターがあります。その長さifは、凡例を生成するブランチにつながるステートメントでも使用されます。したがって、値を設定するNULLと、点線と凡例が削除されます。を設定して、赤い実線を削除することもできますadd.smooth=FALSE。

plot(test, which=5, cook.levels=NULL, add.smooth=FALSE)

編集

凡例のみを削除するという質問コメントの提案の後、のコピーを編集するplot.lmのが道のようです。この質問は、少し難解ですが、以下を使用してこれを行うための効果的な方法を提供しbodyます。

plot.lm2 <- plot.lm
body(plot.lm2)[[27]][[3]][[9]][[4]][[8]][[3]][[6]]<-NULL
plot.lm2(test, which=5)