R中的多重分组线性插值

我有以下数据集：

                 District      Type   DaysBtwn Start_Day  End_Day Start_Vol   End_Vol 
1             A             0             3             0             31             28             23 
2             A             1             3             0             31             24             0 
3             B             0             3             0             31             17700     10526 
4             B             1             3             0             31             44000       35800 
5             C             0             3             0             31             5700         0 
6             C             1             3             0             31             35000       500

对于每个组组合

District&Type

，我想做一个简单的线性插值：

对于x=Days（开始日和结束日）

和

y=volume（开始日和结束日）

，我想返回xout=DaysBtwn的估计量

我试过很多东西。我认为我的数据设置方式有问题。有人能告诉我如何使用R中的近似函数来获得所需输出的正确方向吗？我不介意移动我的数据集以获得大约的正确格式`

期望输出的示例：

District Type EstimatedVol 
1           0           25 
2           1           15 
3           0           13000 
4           1           39000 
5           0           2500 
6           1           25000

---

dt为什么不直接计算呢

dt$EstimatedVol <- (End_Vol - Start_Vol) / (End_Day - Start_Day) * (DaysBtwn - Start_Day) + Start_Vol

dt$EstimatedVol这就是我最后要做的！我试图使用近似函数，使其过于复杂。
dt$EstimatedVol <- (End_Vol - Start_Vol) / (End_Day - Start_Day) * (DaysBtwn - Start_Day) + Start_Vol