为ggplot2放等式：stat_smooth

Question

如何放置适合这些点的方程式？

ggplot(data=iris) +
  geom_point( aes(x=Sepal.Length, y=Petal.Length,color=Species)) +  
  stat_smooth(aes(x=Sepal.Length, y=Petal.Length),method = "loess")