将具有设置截距和斜率的自定义回归线添加到 ggplot

Adding custom regression line with set intercept and slope to ggplot

我使用以下代码创建了一个图:

ggplot(Data, aes(x=damMean, y=progenyMean)) + 
    geom_point()

我想在图中叠加一条回归线,其形式为:y = 69.88 + 5.58*x

我尝试通过添加以下内容来做到这一点:

ggplot(Data, aes(x=damMean, y=progenyMean)) + 
    geom_point() + 
    geom_smooth(method = "lm", formula = y~69.88+5.58*x)

但这并没有在情节中添加一条线。

这可以使用 ggplot 来实现吗?

下面是一些假数据的例子:

mydat <- tibble(x=runif(100, 40, 90), 
                y = 80 + 5.5*x + rnorm(100, 0, 10))

ggplot(mydat, aes(x=x, y=y)) + 
  geom_point() + 
  geom_abline(slope=5.58, intercept=69.88)