关于 bind_rows() 的非常简单但令人困惑的 R 问题

Question

我正在尝试使用 bind_rows 将多个数据帧合并为一个数据帧。每个数据框具有相同的列名和长度。假设每个数据帧都被命名为“df”，其中有 100 个。所以 df1, df2, df3 ... df100。

我不想将函数中的每个数据帧都写为 bind_rows(df1, df2 ... df100)。我试过

total_df <- bind_rows(paste0(df1:df100))

这没用。有没有更简单的方法来做到这一点？谢谢！！

Answer 1

更简单的方法是通过使用列表从一开始就避免使用一堆名为 df1, ..., df100 的数据帧。是因为它可能。您可以使用lapply和get将您的 df 放入列表并调用bind_rows列表：

library(dplyr)

df1 <- mtcars
df2 <- mtcars
df3 <- mtcars

df_bind <- lapply(1:3, function(x) get(paste0("df", x))) %>% 
  bind_rows()

head(df_bind)
#>                        mpg cyl disp  hp drat    wt  qsec vs am gear carb
#> Mazda RX4...1         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
#> Mazda RX4 Wag...2     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
#> Datsun 710...3        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
#> Hornet 4 Drive...4    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
#> Hornet Sportabout...5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
#> Valiant...6           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1

或使用mget你可以做

mget(paste0("df", 1:3)) %>% bind_rows()