Метод извлечения подгонки линии stat_smooth

Есть ли способ извлечь значения подобранной строки, возвращенные из stat_smooth?

Код, который я использую, выглядит следующим образом:

p <- ggplot(df1, aes(x=Days, y= Qty,group=Category,color=Category))
p <- p + stat_smooth(method=glm, fullrange=TRUE)+ geom_point())

Этот новый пользователь r будет очень признателен за любые указания.