我想使用geom_Smooth()来拟合一条没有截距的线性回归直线.我试过"公式=y~x"，"公式=y~x+0"，"公式=y~x-1"，他们都给了我截获……怎么啦？请帮帮忙
library("tidyverse")
mtcars %>%
ggplot(aes(disp, hp)) +
geom_point() +
geom_smooth(method="lm",formula=y~x+0)+
stat_regline_equation(label.y = 300)+
stat_cor(label.y = 250) +
theme_bw()
问题是，stat_regline_equation不会继承geom_smooth的公式，你还必须明确地告诉stat_regline_equation，你想要一个没有拦截的模型:
注意:作为参考，我为一个有截距的模型添加了geom_smooth，这表明geom_smooth已经像你说的那样了.
library(tidyverse)
library(ggpubr)
mtcars %>%
ggplot(aes(disp, hp)) +
geom_point() +
geom_smooth(method = "lm", formula = y ~ x, color= "black", se = FALSE) +
geom_smooth(method = "lm", formula = y ~ x + 0) +
stat_regline_equation(label.y = 300, formula = y ~ x + 0) +
stat_cor(label.y = 250) +
theme_bw()
