r - 加载多个 .RData 并绑定(bind)到单个 data.frame 中

Question

我的文件夹中有多个 .RData。我可以按如下方式加载它们:

df1 <- data.frame(X = 1:10)
df2 <- data.frame(X = 1:10)

save(df1, file = "df1.RData", compress = "xz")
save(df2, file = "df2.RData", compress = "xz")

rm(list = ls())

load("df1.RData")
load("df2.RData")

并使用dplyr中的bind_rows函数将它们绑定(bind)为

library(tidyverse)
bind_rows(df1, df2)

我想知道是否可以加载所有文件并像这样绑定(bind)它们

list.files(
      path      = "."
    , pattern    = "*.RData"
    , full.names = TRUE
    )  %>%
  map_dfr(.x = ., .f = ~load(file = .x))

Answer 1

您可以使用 get() 从调用环境返回数据，或者将它们加载到新环境中并随后绑定(bind)它们。请注意，.Rdata 文件可以包含多个对象，但假设这些对象都是一致的，您可以这样做:

library(purrr)
library(dplyr)

df1 <- data.frame(X = 1:10)
df2 <- data.frame(X = 1:10)

save(df1, file = "df1.RData", compress = "xz")
save(df2, file = "df2.RData", compress = "xz")

list.files(pattern = "\\.RData$") %>%
   map_df(~ get(load(file = .x)))

    X
1   1
2   2
3   3
4   4
5   5
6   6
7   7
8   8
9   9
10 10
11  1
12  2
13  3
14  4
15  5
16  6
17  7
18  8
19  9
20 10 

或者:

temp_env <- new.env()

list.files(pattern = "\\.RData$")  %>%
  map(~load(file = .x, envir = temp_env)) 

bind_rows(as.list(temp_env))