请问我用ggplot2里面的geom_smooth()画出了一条平滑曲线，怎样才能获取这条曲线的信息，比如方程式和R方等等
library(reshape2)
m444 <- melt(m1,id="tim")
m444 <- m444[-(is.null(m444$value)),]
library(ggplot2)
p<- ggplot(m444,aes(variable,value,group=tim))
p+geom_point()+geom_smooth(aes(group=1),span=0.4)