R 将新列中的第一行数据帧（转换为列表）并删除第一行

我得到了一个由25个数据帧组成的列表，我想为每个数据帧将第一行转换成一列，并删除第一行

下面是列表中包含的两个数据帧的示例：

[[24]]
                    V1      V2      V3    V4                  V5
1                85003      NA                                  
2  01/10/1979 09:00:00 153.392  50 (G)  calc 12/09/1980 07:15:00
3  01/10/1980 09:00:00 143.276  50 (G)  calc 07/02/1981 14:00:00
4  01/10/1981 09:00:00 149.138 200 (V)  calc 20/11/1981 05:00:00
[...]

[[25]]
                    V1      V2      V3    V4                  V5
1                94001      NA                                  
2  01/10/1972 09:00:00  77.277 200 (V)  calc 02/12/1972 04:15:00
3  01/10/1973 09:00:00  94.340 200 (V)  calc 19/01/1974 13:45:00
4  01/10/1974 09:00:00 116.410 200 (V)  calc 08/12/1974 01:30:00
[....]

我的最终输出应如下所示：

[[24]]
                    V1      V2      V3    V4                  V5   V6
1  01/10/1979 09:00:00 153.392  50 (G)  calc 12/09/1980 07:15:00   85003
2  01/10/1980 09:00:00 143.276  50 (G)  calc 07/02/1981 14:00:00   85003
3  01/10/1981 09:00:00 149.138 200 (V)  calc 20/11/1981 05:00:00   85003
[...]

[[25]]
                    V1      V2      V3    V4                  V5  V6
1  01/10/1972 09:00:00  77.277 200 (V)  calc 02/12/1972 04:15:00  94001
2  01/10/1973 09:00:00  94.340 200 (V)  calc 19/01/1974 13:45:00  94001
3  01/10/1974 09:00:00 116.410 200 (V)  calc 08/12/1974 01:30:00  94001
[....]

---

谢谢您的帮助。

我们可以使用

lappy

lst1 <- lapply(lst, function(x) transform(x, V6 = V1[1])[-1,])

---

lst1我们可以使用
lappy

lst1 <- lapply(lst, function(x) transform(x, V6 = V1[1])[-1,])

lst1