R语言ggplot2如果已知拟合方程添加拟合曲线

library(ggplot2)
x<-1:10
y<-5*exp(2*x)+3
df<-data.frame(x=x,y=y)

exp_fun<-function(x,a,b,d){
  a*exp(b*x)+d
}

ggplot(data=df,aes(x=x,y=y))+
  geom_point()+
  stat_function(fun=exp_fun,
                args=list(a=5,b=2,d=3))