使用Stat_smooth将指数最佳拟合曲线绘制到ggplot2

Question

这是我的数据：

df  <-read.table(text="x   group   y
1   A       0.5
2   A       0.25
3   A       0.1
1   B       0.6
2   B       0.7
3   B       0.2", header=TRUE)

我想做的是在数据上绘制指数最佳拟合曲线。我希望将指数曲线的上升趋势显示为仅一条正常的geom_smooth（）曲线，以传达X = 1的值趋于更高并避免B组曲线出现下降的趋势。到目前为止，我的代码仅生成点，而不生成曲线。我在做什么错了？

ggplot(df, aes(x,y)) + 
  geom_point() +
  stat_smooth(method = 'nls', formula = y~ a*exp(b *x), aes(colour = 
  'Exponential'), se = FALSE, start = list(a=1,b=1))