在散点图（线性回归）图上绘制曲线

Question

我在R中有以下情节：

我使用以下代码构建它：

df <- read.csv("C:/temp/df.csv")

df.x <- df$DR
df.y <- df$GB

df.fit = lm(df.y ~ df.x)

plot(df.x,df.y,
     xlab="X",
     ylab="Y",
     xlim=c(1,730),
     ylim=c(2400,5000),
     col="blue",pch=20)

grid(10, 10, lwd = 1)
abline(df.fit, col="red",lw=1,lty=1)
df.pred = predict(df.fit, data.frame(df.x=170+365))
points(y=df.pred, x=535, col="black", pch=18)
df.pred.margin = predict(df.fit, data.frame(df.x=170+365+185))
points(y=df.pred.margin, x=535, col=51, pch=18)
abline(h=df.pred.margin, col=51)
abline(v=535, col=51)

如何绘制从我的数据点到绿点的曲线？

我想模拟我（可能）看到达到绿点的那种曲线。