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的副本似乎是要走的路。这个question使用body提供了一种有效但有点深奥的方式：

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

烹饪距离情节如何摆脱传奇

2 个答案: