R Ggplot：1条带常数的回归线和1条不带常数的回归线

对于一个大学练习，我想在同一个图表中绘制两条回归线：一条回归包含常数，另一条不包含常数。它应该说明移除常数如何改变回归线

但是，当我使用下面的ggplot命令时，我只得到一条回归线。有人知道这是什么原因以及如何解决吗

data(mtcars)
ggplot(mtcars, aes(x=disp, y=mpg)) +
  geom_point() +    # Scatters
  geom_smooth(method=lm, se=FALSE)+
  geom_smooth(method=lm, aes(color='red'),
              formula = y ~ x -0, #remove constant
              se=FALSE)

---

我试过了，但没有成功。

你几乎成功了；要删除截取，您需要

+0

或

-1

，但不需要

-0

；从

帮助（“lm”）

：

公式有一个隐含的截距项。要删除此项，请使用y或~ x-1或y~0+x。有关允许公式的更多详细信息，请参见公式

因此，我们可以这样做：

库（ggplot2）
数据（mtcars）
ggplot（mtcars，aes（x=disp，y=mpg））+
几何点（）+#散射
几何平滑（方法=lm，se=FALSE）+
geom_光滑（方法=lm，aes（颜色=红色），
公式=y~x-1，#去除常数
se=假）

---

由（v0.2.1）于2018年10月7日创建，您几乎得到了它；要删除截取，您需要

+0

或

-1

，但不需要

-0

；从

帮助（“lm”）

：

公式有一个隐含的截距项。要删除此项，请使用y或~ x-1或y~0+x。有关允许公式的更多详细信息，请参见公式

因此，我们可以这样做：

库（ggplot2）
数据（mtcars）
ggplot（mtcars，aes（x=disp，y=mpg））+
几何点（）+#散射
几何平滑（方法=lm，se=FALSE）+
geom_光滑（方法=lm，aes（颜色=红色），
公式=y~x-1，#去除常数
se=假）

由（v0.2.1）于2018年10月7日创建

好书上说要这样做： 我不能因为代码编写而获得荣誉，但是研究

祝你有美好的一天。。。 上校：再见

好书上说要这样做： 我不能因为代码编写而获得荣誉，但是研究

祝你有美好的一天。。。

---

CAPTBARTTT

您已经得到了下面的答案，但作为旁注：

color='red'

不需要在

aes（）内。

对于第二个

geom_平滑

层。啊，太完美了，这真让我恼火了。谢谢您已经得到了下面的答案，但作为旁注：

color='red'

不需要在

aes（）

内进行第二个

geom_平滑

层。啊，太好了，这真让我恼火了。谢谢太好了，这就成功了！非常感谢你的快速回答。太好了，这就成功了！非常感谢您的快速回答。