Merge viele Daten-frames von csv-Dateien, wenn die ID-Spalte impliziert ist?

Möchte ich verbinden eine Reihe von Daten-frames zusammen (weil es scheint, viele Vorgänge sind einfacher, wenn Sie nur den Umgang w/ein, aber korrigieren Sie mich, wenn ich falsch Liege).

Zurzeit habe ich einen Daten-frame, wie dies:

ID, var1, var2
A,  2,    2
B,  4,    5
.
.
Z,  3,    2

Jede ID ist auf einer einzigen Zeile w/mehrere einzelne Messungen

Ich habe auch eine csv-Datei w/wiederholter Messung für jede ID, wie:

filename = ID_B.csv -

time, var4, var5
0,    1,    2
1,    4,    5
2,    1,    6
...

Was ich möchte ist:

ID, time, va1, var2, var4, var5
...
B,  0,    4,   5,    1,    2,
B,  1,    4,   5,    4,    5,
B,  2,    4,   5,    1,    6,
...

Ich weiß nicht wirklich über die Spalte Reihenfolge. Die einzige Lösung, die ich denken kann, ist das hinzufügen der ID-Spalte zu jeder csv-Datei dann eine Schleife aufrufen merge() mehrmals. Gibt es eine elegantere Lösung?

InformationsquelleAutor Peter | 2009-10-13
  1. 15

    Mein Verständnis ist, dass müssen Sie extrahiert die ID aus dem Dateinamen und dann Zusammenführen der importierten csv mit den vorhandenen dataframe.

    df1 <- read.csv(textConnection("ID, var1, var2
A,  2,    2
B,  4,    5"))

# assuming the imported csv-files are in working directory
filenames <- list.files(getwd(), pattern = "ID_[A-Z].csv")

# extract ID from filename
ids <- gsub("ID_([A-Z]).csv", "\\1", filenames)

# import csv-files and append ID
library(plyr)
import <- mdply(filenames, read.csv)
import$ID <- ids[import$Var1]
import$Var1 <- NULL

# merge imported csv-files and the existing dataframe
merge(df1, import)

    Ergebnis:

    ID var1 var2 time var4 var5
1  B    4    5    0    1    2
2  B    4    5    1    4    5
3  B    4    5    2    1    6
    • Oh! Ich habe Total verpasst, dass jede csv-wurde die Messung für eine einzelne ID. Doh! Deine Antwort ist sehr gut.
    • Sie müssen nur ldply und nicht mdply, und Sie können auch die Dinge zu vereinfachen, indem Sie tun names(filenames) <- ids. Auch Sie verwenden . statt getwd() im list.files. Nette Antwort sonst.
    InformationsquelleAutor learnr
Schreibe einen Kommentar