It looks like bind_rows
from the dplyr
package will do this too. Using maloneypatr's example:
df1 <- data.frame(a = seq(1, 5, by = 1),
b = seq(21, 25, by = 1))
df2 <- data.frame(a = seq(6, 10, by = 1),
b = seq(26, 30, by = 1))
dplyr::bind_rows(df1, df2, .id = "source")
Source: local data frame [10 x 3]
# source a b
# (chr) (dbl) (dbl)
# 1 1 1 21
# 2 1 2 22
# 3 1 3 23
# 4 1 4 24
# 5 1 5 25
# 6 2 6 26
# 7 2 7 27
# 8 2 8 28
# 9 2 9 29
# 10 2 10 30
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…