在散点图上拟合GAM曲线？

Question

我有一个总密封丰度（Total）对观察期（Obsv_time）的散点图：

plot(Total ~ Obsv_time, data = R_Count)

我已经用风速和潮汐创造了gam探索总丰度：

gam.tot <- gam(Total ~ s(Obsv_time, k = 5) + s(Windspeed) + Tide, 
               family = poisson, correlation = corAR1(q=1), 
               data = R_Count)

变量Total，Obsv_time和Windspeed是连续的，而Tide是一个因素，不确定这是否会产生影响？

我想在散点图上放置gam以显示随时间的丰度变化，我假设使用loess？

谢谢！

**更新：现在解决了，谢谢！ @patL