Konvertieren von txt-Datei in csv, und extrahieren Sie die ausgewählten Zeilen

Ich habe 500 Dateien (gespeichert im gleichen Verzeichnis).

Alle diese Dateien haben das gleiche format, wie folgt. Zwar kann excel erkennen, dass die 3 Spalten-R liest nur eine Spalte, wenn ich x <- read.csv(xxx.txt, header=T). Ich denke, es ist ein intelligenter Weg, dies zu tun.

4077    40770     3.083 
4078    40780     2.985 
4079    40790     2.946 
4080    40800     3.010 
4081    40810     2.956 
4082    40820     3.080 
4083    40830     3.130 
4084    40840     3.167 
4085    40850     3.054

Nach dem laden dieser Dateien zu R, ich will zum extrahieren von nur 0, 100, 200, 300,....9000 Zeilen und speichern Sie Sie in einem anderen Verzeichnis mit dem gleichen Dateinamen in 500-getrennte Dateien.

Ist es möglich, automatisch erfolgen mit R?

InformationsquelleAutor psiu | 2011-09-14

r text

2

Ich denke, dass Sie verbessern würde, Ihren code mit dem Lesen.Tabelle () - Funktion zum importieren frei formatiert (mit Trennzeichen) Daten, Dateien, anstatt das rad.csv(), die geschrieben wurde, speziell für durch Trennzeichen getrennte Dateien. Und als DWin hingewiesen, es gibt keine Zeile 0 in R. Sie könnten versuchen, auf diese Weise:
```
directory <- "your.work.directoty" # where your data files are. 
                                   # It depends on your OS (Windows, Linux, MacOS)
ndirectory <- "your.new.directory"
files <- dir(directory)
files.to.read <- paste(directory, files, sep="/") 
files.to.write <- paste(ndirectory, files, sep="/")

for(i in 1:length(files.to.read) )
{
    d <- read.table(files.to.read[i], header=TRUE)
    temp <- d[c(1,seq(100, 9000, by=100)), ]
    write.table(temp, file=files.to.write[i], 
                row.names=FALSE)
}
```
Hoffe, dass dies helfen.
- Ramon: thanksfor Ihr Skript. Ich habe die gleiche Aufgabe. Aber R gibt einen Fehler zurück: Error in read.table(files.to.read[i], header = TRUE) : more columns than column names. wie es zu lösen ist?
- Dieser Fehler ist Ihnen zu sagen, dass eine oder mehrere Spalten in Ihrer Daten haben, kein Spaltenname. Sie überarbeiten müssen alle Ihre Dateien. Man könnte hinzufügen, ein print(i) und ein flush console() nach dem ersten { im for Aussage und sehen, welche Ihrer Dateien das problem ist. Vielleicht ist Ihr problem ist in der Praxis oder im dezimal-Trennzeichen. Man könnte definieren, sowohl in der lese.Tabelle Funktion: read.table(files.to.read[i], header=TRUE, sep=";", dec=","). Hoffe, das hilft.
- danke, ich habe den Fehler behoben :)! Eine kleine Frage. Ich möchte zu extrahieren, ein Stück text in jeder Datei, und erstellen Sie neue in eine neue Kategorie mit den extrahierten text. How to intercalate es in der für {} - Anweisung?
- Nicht sicher, ob ich Ihre Frage verstehe. Wollen Sie zum extrahieren von text aus jeder Datei den Namen, und legen Sie es als eine neue variable im Daten-frame? Wenn true, können Sie die str_sub (siehe example(str_sub)) - Funktion aus der stringr Paket. Fügen Sie eine neue Zeile wie temp$class <- str_sub(files[i], 1, 5) nach der Definition der temp Daten-frame (Werte 1 und 5 in der str_sub sind die start-und end-Werte; siehe ?str_sub).
InformationsquelleAutor Manuel Ramón
1

Laden:
1. Erstellen Sie eine Liste mit Ihren Namen die meisten leicht getan mit> Liste.Dateien(
  )
2. Schleife durch diese Liste mithilfe gelesen.Tabelle mit entweder keine sep
  argument sep="\t" (ohne Kommas oder header in dieser Datei, wie es jetzt erscheint .)
3. Vielleicht:
  lapply(flist, function(x) assign(x, Lesen.Tabelle(x) )
  ...und rbind diese zusammen, vielleicht mit so etwas wie
  bigfile <- tun.call(rbind, flist)
  
  Gibt es viele Beispiele in der rhelp Archiv und SO, dies zu tun;
Loop in R laden von Dateien

Mit R-Schleife über die Daten-frames, und weisen Sie entsprechende Namen erstellte Objekte in der Schleife

Wie zu Lesen ist.Tabelle() mehrere Dateien in eine einzelne Tabelle in R?

Extrahieren (Es gibt keine null-Zeile in R):
```
subextract <- bigfile[ seq(1, 9001 , by=100), ]
write.csv(subextract, file="smaller.csv")   # will have commas
```
- Ich denke, dass es etwas seltsam ist, was mit dem format der Antwort.
- alles in allem?
- Ich nahm an, er war downvoting mich, denn ich habe eine Gliederung in eine code box. Sicherlich war er nicht für Klagen über die Formatierung der links zu anderen SO beantworten, denn das ist hardcoded in der SO-Schnittstelle.
- Ich vermutete, dass es ein Fehler war, dass Ihre "Gliederung" wird in einer code-box. Sie bestimmt das? Es muss einen besseren Weg geben. Vielleicht ein blockquote? Das zumindest würde nicht haben syntax-highlighting.
- Die Fähigkeit zum erstellen von Listen mit Zwischenüberschriften ist nicht gut unterstützt, in der Benutzerschnittstelle.
InformationsquelleAutor 42-

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.