在R中分组添加变量并进行回归分析

如图，我想要计算每个公司（ID）分组数据中前一年的TA/后一年的PPE并且将这个数据指标添加到新的一列当中，请问在R中有没有什么比较好的方法吗？我参考了by和byGROUP等函数但依然没有找到比较好的方法ww，请求各位大佬求助！！

https://blog.csdn.net/glodon_mr_chen/article/details/79837028