Question

我有一个包含1到N个数据帧的列表。它们都有相同的列，我需要按行加入它们。

问题是，我需要在ID中添加一个新列，以便与每个原始数据帧相关的新数据帧部分。

举个例子：

$ tracks   :List of 1
  ..$ :List of 2
  .. ..$ 01-DEZ-15 11:57:34:'data.frame':   19 obs. of  5 variables:
  .. .. ..$ lon       : num [1:19] -48.6 -48.6 -48.6 -48.6 -48.6 ...
  .. .. ..$ lat       : num [1:19] -26.8 -26.8 -26.8 -26.8 -26.8 ...
  .. .. ..$ ele       : chr [1:19] "14.56" "21.77" "14.56" "15.52" ...
  .. .. ..$ time      : POSIXct[1:19], format: "2015-12-01 07:35:03" "2015-12-01 07:35:21" ...
  .. .. ..$ extensions: chr [1:19] "0" "0" "0" "0" ...
  .. ..$ NA                :'data.frame':   1899 obs. of  5 variables:
  .. .. ..$ lon       : num [1:1899] -48.6 -48.6 -48.6 -48.6 -48.6 ...
  .. .. ..$ lat       : num [1:1899] -26.8 -26.8 -26.8 -26.8 -26.8 ...
  .. .. ..$ ele       : chr [1:1899] "14.08" "13.12" "13.12" "13.12" ...
  .. .. ..$ time      : POSIXct[1:1899], format: "2015-12-01 07:39:43" "2015-12-01 07:39:53" ...
  .. .. ..$ extensions: chr [1:1899] "0" "0" "0" "0" ...

我需要在1个数据框中合并两个列表，将列表编号添加为新列。

与此类似：

      Lon            Lat    Ele         Time           Ext  ID
1   -48.60467   -26.78866   14.56   2015-12-01 07:35:03 0   1
2   -48.60467   -26.78868   21.77   2015-12-01 07:35:21 0   1
3   -48.60468   -26.78869   14.56   2015-12-01 07:35:45 0   1
4   -48.60468   -26.78869   15.52   2015-12-01 07:36:09 0   2
5   -48.60468   -26.78872   13.12   2015-12-01 07:36:46 0   2

有可能有效地完成任务吗？

感谢您的帮助。最好的问候。

Answer 1

我通常使用这一个班轮：

tracks <- list(df1=iris, df2=iris)
Z_both <- do.call(rbind, mapply(transform, tracks, ID=seq_along(tracks), SIMPLIFY = FALSE))

mapply(transform)会为每个data.frame添加一列，然后do.call(rbind)将堆叠它们。

R绑定数据帧，同时添加列表ID为

1 个答案: