Połączyć wiele plików .RData zawierających obiekty o tej samej nazwie w jeden plik .RData

Question

Mam wiele wielu plików .RData zawierających jedną ramkę danych, którą zapisałem w poprzedniej analizie, a ramka danych ma taką samą nazwę dla każdego załadowanego pliku . Tak więc na przykład używając load (file1.RData) otrzymuję ramkę danych o nazwie 'df', a następnie używając load (file2.RData) otrzymuję ramkę danych o tej samej nazwie 'df'. Zastanawiam się, czy w ogóle można połączyć wszystkie te pliki .RData w jeden duży plik .RData, ponieważ muszę załadować je wszystkie naraz, z nazwą każdego df równą nazwie pliku, aby móc następnie użyć różnych plików ramki danych.

Mogę to zrobić za pomocą poniższego kodu, ale jest to bardzo skomplikowane, musi być prostszy sposób, aby to zrobić ... Dziękuję za sugestie.

Say mam 3 pliki .RData i chcesz zapisać wszystko w pliku o nazwie „main.RData” z ich nazwą (teraz wszyscy wyjdą jako „df”):

all.files = c("/Users/fra/file1.RData", "/Users/fra/file2.RData", "/Users/fra/file3.RData") 
assign(gsub("/Users/fra/", "", all.files[1]), local(get(load(all.files[1])))) 
rm(list= ls()[!(ls() %in% (ls(pattern = "file")))]) 
save.image(file="main.RData") 


all.files = all.files = c("/Users/fra/file1.RData", "/Users/fra/file2.RData", "/Users/fra/file3.RData") 

for (f in all.files[-1]) { 
    assign(gsub("/Users/fra/", "", f), local(get(load(f)))) 
    rm(list= ls()[!(ls() %in% (ls(pattern = "file")))]) 
    save.image(file="main.RData") 
} 

Answer 1

myślę najlepszą odpowiedzią, jaką zobaczyłem, był poniższy kod, który skopiowałem z odpowiedzi na WR, której nie mogę teraz znaleźć. Przeprosiny za oryginalnego autora.

resave <- function(..., list = character(), file) { 
    previous <- load(file) 
    var.names <- c(list, as.character(substitute(list(...)))[-1L]) 
    for (var in var.names) assign(var, get(var, envir = parent.frame())) 
    save(list = unique(c(previous, var.names)), file = file) 
} 
#I took advantage of the fact the load function 
#returns the name of the loaded variables, so 
#I could use the function's environment instead of creating one. 
#And when using get, I was careful to only look in the 
#environment from which the function is called, i.e. parent.frame() 

Answer 2

Oto opcja, która łączy kilka istniejących posty

all.files = c("file1.RData", "file2.RData", "file3.RData") 

Czytaj wielu dataframes na jednej liście nazwie (How can I load an object into a variable name that I specify from an R data file?)

mylist<- lapply(all.files, function(x) { 
    load(file = x) 
    get(ls()[ls()!= "filename"]) 
}) 

names(mylist) <- all.files #Note, the names here don't have to match the filenames 

można zapisać listę, lub przenieść dataframes w środowisku globalnym przed zapisaniem (Unlist a list of dataframes)

list2env(mylist ,.GlobalEnv) 

Alternatywnie, jeśli ramki danych były identyczne i chciałeś utworzyć pojedynczą dużą ramkę danych, możesz zwinąć listę i dodać zmienną z nazwami plików współdziałających (Dataframes in a list; adding a new variable with name of dataframe).

all <- do.call("rbind", mylist) 
all$id <- rep(all.files, sapply(mylist, nrow))