R Dateien Lesen mit for-Schleife

Ich nur verwenden möchten, verwenden Sie 10 Dateien in R. Für jedes I berechnen möchten, etwas.
Exp. Datei:
stat1_pwg1.aus
stat23_pwg2.aus
..
stat45_pwg10.aus

Ich versuche dieses:

for (i in 1:10){
Data=paste("../XYZ/*_pwg",i,".out",sep="")
line=read.table(Data,head=T)
}

Aber es funktioniert nicht? Alle hinds?

InformationsquelleAutor Jasmine | 2011-07-20
  1. 4

    Ich vermute, dein problem kommt von der wildcard *. Einen besseren Weg, dies zu tun wäre, um Sie zuerst speichern Sie die Datei-Namen mit dir, dann finden die, die Sie wollen.

    files <- dir("../XYZ",pattern="stat[0-9]+_pwg[0-9]+\.out")
for(f in files) {
  line=read.table(Data,head=T)
}

    Könnte man auch mit einem der apply Familie von Funktionen zu beseitigen, die for-Schleife komplett.

    • Du bist herzlich willkommen. Da Sie neu ist, SO biete ich den folgenden Vorschlag: Wenn das die Frage beantwortet bitte klicken Sie auf das kleine Kontrollkästchen um diese zu markieren als beantwortet. Damit wird die Frage aufgeführt, in den "unbeantworteten" Fragen und hilft, die Datenbank SO sauber.
    • denken Sie daran, zu entkommen, die . in deinem regex.
    • oops. Danke.
    InformationsquelleAutor Ari B. Friedman
  2. 2

    Ein paar Dinge über Ihren code.

    paste ist vektorisiert, so dass Sie können nehmen Sie es aus der Schleife.

    paste("../XYZ/*_pwg", 1:10, ".out", sep = "")

    (Obwohl als Sie in einem moment sehen werden, die Sie nicht wirklich brauchen, zu verwenden paste überhaupt.)

    read.table nicht akzeptieren, wildcards; es muss eine exakte übereinstimmung mit dem Dateinamen.

    Anstatt zu versuchen, zu konstruieren, ein Vektor, der die Dateinamen, Sie könnten besser mit dir zu finden, die die Dateien in Ihrem Verzeichnis, gefiltert durch ein geeignetes Namensschema.

    Um die Dateien zu filtern, verwenden Sie einen regulären Ausdruck in das pattern-argument. Sie können konvertieren von Platzhaltern zum regulären Ausdruck mit glob2rx.

    file_names <- dir("../XYZ", pattern = glob2rx("stat*_pwg*.out"))
data_list <- lapply(filenames, read.table, header = TRUE)

    Für eine etwas spezifischere passen, wo der Platzhalter entspricht nur zahlen als alles, was Sie brauchen, um reguläre Ausdrücke verwenden, direkt.

    file_names <- dir("../XYZ", pattern = "^stat[[:digit:]]+_pwg[[:digit:]]+\\.out$")
    InformationsquelleAutor Richie Cotton
  3. 0
        files <- dir(pattern="*Rip1_*")

    files

    for (F in files){ assign(F , Readfunc(F))}
    • Während dieses code-snippet ist willkommen, und kann einiges an Hilfe anbieten, wäre es erheblich verbessert, wenn es beinhaltete eine Erklärung von wie und warum das löst das problem. Denken Sie daran, dass Sie die Beantwortung der Frage für die Leser in der Zukunft, nicht nur die person, die jetzt! Bitte Bearbeiten Ihre Antwort zur Erklärung hinzufügen, und geben Hinweise darauf, welche Einschränkungen und Annahmen anwenden.
    • dadurch wird die Datei Lesen inseperate Möglichkeiten
    InformationsquelleAutor Atongsa Miyamoto
Schreibe einen Kommentar