R如何推断数据点

Question

我有一个样本数据集，包含10年的数据（每年1个点），接受率通常会下降。我想预测/外推5年和10年后的数据点是什么。在给定不同数据集的情况下，相似的预测/推算的数据点分别为5年，10年。

样本数据集

df

year     will_accept_perc
2009     97
2010     95
2011     94
2012     90
2013     91
2014     89
2015     88
2016     84
2017     83
2018     82
2019     76

我有一个可视化的图，它可以实现我想要的视觉效果，但我想获取实际的数据点。

plot <- ggplot(df,aes(x=year,y=will_accept_perc),xlim(2008,2030)) +
    expand_limits(x=c(2008,2030),y=c(60.0,100)) +
    stat_smooth(method=lm,fullrange=TRUE)

到2024年，到2029年，将预测/推断出什么will_accept_perc值？我更喜欢使用模型/函数，以便可以将其用于各种相似的数据集以预测/推断未来的数据点。