bind many data frames adding a column with their id [duplicate]

Answer 1

You could use parse and eval to get the data frames from df_names:

do.call(rbind, lapply(df_names, function(x){data.frame(id=x, eval(parse(text=x)))}))


    id x y
1 df.1 1 2
2 df.1 2 2
3 df.2 2 4
4 df.2 4 4
5 df.3 2 4
6 df.3 2 5

Answer 2

There is also combine from the "gdata" package:

library(gdata)
combine(df.1, df.2, df.3)
#   x y source
# 1 1 2   df.1
# 2 2 2   df.1
# 3 2 4   df.2
# 4 4 4   df.2
# 5 2 4   df.3
# 6 2 5   df.3

Answer 3

Another approach using mget:

dat <- do.call(rbind, mget(df_names))
dat$id <- sub("\\.\\d+$", "", rownames(dat))

#        x y   id
# df.1.1 1 2 df.1
# df.1.2 2 2 df.1
# df.2.1 2 4 df.2
# df.2.2 4 4 df.2
# df.3.1 2 4 df.3
# df.3.2 2 5 df.3