R ggplot2中的多项式方程

我有以下代码：

df_logannuali <- data.frame("x" =log_annuali2[,1],"y"=log_annuali2[,2])
p <-ggplot(df_logannuali, aes(x, y))
p <- p + geom_point(alpha=2/10,shape=21,fill="blue",colour="black",size=3)+stat_smooth(method="lm", se=TRUE,formula=y ~ poly(x, 5, raw=TRUE),colour="red") 
p+labs(x="Tempo (anni)",y="Sbarcato (log.t.)",title="(17) Sbarcato annuale TS")+ theme_bw() + theme(panel.border = element_blank(), panel.grid.major = element_blank(), 
panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))

如果可能的话，把它们画在图表上？

---

谢谢

重复的是，谢谢，但我想在控制台中，也在图表中，有一个等式值的摘要，我不知道确切的命令。

y = 560x^2+358x^3....-589x^5