R：将多条回归线和黄土曲线添加到绘图中

Question

mod = lm(iris$Petal.Length ~ iris$Petal.Width + iris$Species)
plot(iris$Petal.Length ~ iris$Petal.Width, col = iris$Species)
abline(mod)

我在这里对Species进行分层，我想绘制3条回归线，每条物种一条。 abline(mod)似乎只添加一行。另外，如果我想添加LOESS曲线怎么办？

Answer 1

ggplot one-liner：

library(ggplot2)

ggplot(iris, aes(Petal.Width, Petal.Length, color=Species)) + geom_point() + geom_smooth(method='lm', formula=y~x)

忽略geom_smooth()的参数，你会得到LOESS线。但是，这里的数据非常少，以至于失败了。

Answer 2

mod = lm(iris$Petal.Length ~ iris$Petal.Width + iris$Species)
plot(iris$Petal.Length ~ iris$Petal.Width, col = iris$Species)
abline(coefficients(mod)[1], coefficients(mod)[2])
abline(coefficients(mod)[1], coefficients(mod)[3])
abline(coefficients(mod)[1], coefficients(mod)[4])