Konvertieren erste Zeile von Datenframes (in eine Liste) in einer neuen Spalte und löschen Sie die ersten Zeilen

Question

Ich habe eine Liste von 25 Datenrahmen und ich möchte die ersten Zeilen in eine Spalte für jeden Datenrahmen konvertieren und löschen Sie die erste Zeile Reihen.

Hier ist ein Beispiel von zwei meiner Datenrahmen in der Liste enthalten sind:

[[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 
[....] 

Meine letzte Ausgabe sollte wie folgt lauten:

[[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 
[....] 

Vielen Dank für jede Hilfe.

Answer 1

Wir verwenden lapply

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