r - 如何用ggplot绘制回归线？

Question

我试图将两条回归线放入同一个图中。我可以使用下面的代码来做到这一点，但线条颜色相同:

model1 <- glm(species~logarea, family=poisson, data=fish)
model2 <- glm.nb(species~logarea, data=fish)

plot(species~logarea,data=fish)
lines(fitted(model1)[order(logarea)]~sort(logarea),data=fish)
lines(fitted(model2)[order(logarea)]~sort(logarea),data=fish)

我正在考虑使用 ggplot 来复制上面的图，这样我就可以用不同的颜色显示不同的线条。但我不知道该怎么做。

我只完成了绘制散点图的第一步，但不知道如何在其上添加线条。

ggplot(fish,aes(fish$logarea,fish$SPECIES))+geom_point()

我做了一些搜索，我知道我可以使用 geom_smooth(method = "glm") 来生成回归线。但它似乎不是基于我构建的模型。

任何人都可以对此有所了解吗？

非常感谢。

Answer 1

只需添加 geom_line(aes(y=fitted_datas)) ，例如像这样:

data("mtcars")
library(ggplot2)
model <- glm(mpg~hp, family=poisson, data=mtcars)
ggplot(mtcars,aes(hp,mpg))+geom_point()+geom_line(aes(y=fitted(model)))

结果 :