rbind data frames based on a common pattern in dat

问题:

Say I have multiple data frames which all have identical vector names and I'd like to cbind all which have a commmon pattern. So for these 3 data frames:

df.1 <- data.frame(column1 = factor(sample(c("Male","Female"), 10, replace=TRUE)),
                   speed=runif(10))
df.2 <- data.frame(column1 = factor(sample(c("Male","Female"), 10, replace=TRUE)),
                   speed=runif(10))
df.3 <- data.frame(column1 = factor(sample(c("Male","Female"), 10, replace=TRUE)),
                   speed = runif(10))

I would like to rbind everything with the common pattern "df.*"

I have tried creating a list and then creating a data-frame from this using:

temp <- lapply(ls(pattern = "df.*"), get) 
temp2<- as.data.frame(temp)

However this only produces a data frame of 6 columns effectively cbinding the whole thing rather than rbinding.

回答1:

We can use ls with mget

library(data.table)
rbindlist(mget(ls(pattern = "^df\\.\\d+")))

---

Or with dplyr

library(dplyr)
mget(ls(pattern="^df\\.\\d+")) %>%
              bind_rows()

---

Or with rbind from base R

do.call(rbind, mget(ls(pattern="^df\\.\\d+")))

回答2:

You can try:

new_df <- do.call("rbind",mget(ls(pattern = "^df.*")))