黄土复制geom_smooth的置信区间/带

I would like to get the upper and lower limits of the confidence interval for each observation in loess function to replicate what I would like to get the upper and lower limits