如何设置不同系列数据截距的线性回归线为零

如何解决如何设置不同系列数据截距的线性回归线为零

我正在处理具有不同系列的数据集，我需要对所有系列进行线性回归。问题是我想将所有线性回归线的截距设置为零。我在网上搜索了很多，人们说使用公式=y~-1+x，但这对我的案例没有用。我要问的是在 Excel 中很容易做的事情，但是我用 ggplot 花了一整天的时间没有解决方案，这让我发疯。请帮忙！

这是我的代码：

timecourseindividualplot<- ggplot(timecourseindividual,aes(x=incubation.time,y=X..of.tracer.converted,col=Depth))+
    geom_point(size=1.5)+
    geom_smooth(method=lm,formula=y~-1+x,se=FALSE)+
    stat_regline_equation(label.x.npc=0,aes(label =..rr.label..))+
    theme(plot.margin=unit(c(.5,.5,.5),"cm"))+
    labs(x="Incubation Time (d)",y="Percentage of Tracer Converted (%)")+
    coord_cartesian(ylim=c(0,2),xlim=c(0.85,3))+
    theme(axis.title = element_text(size=22),axis.text=element_text(size=18))+
    theme(legend.position="None")+
    scale_color_discrete(name="Depth(m)")
    timecourseindividualplot``

这是我的数据的样子，因为深度不同，有不同的系列：