Lesen einer Textdatei in R Zeile für Zeile

Möchte ich um eine Textdatei zu Lesen, die in R, Zeile für Zeile mit einer for-Schleife und mit der Länge der Datei. Das problem ist, dass es druckt nur Zeichen(0). Dies ist der code:

fileName="up_down.txt"
con=file(fileName,open="r")
line=readLines(con) 
long=length(line)
for (i in 1:long){
    linn=readLines(con,1)
    print(linn)
}
close(con)

InformationsquelleAutor der Frage Layla | 2012-09-27

  1. 78

    Sollten Sie darauf achten, mit readLines(...) und großen Dateien. Lesen Sie alle Zeilen im Gedächtnis, kann riskant sein. Unten ist ein Beispiel dafür, wie Datei Lesen und Bearbeiten nur eine Zeile Zeit:

    processFile = function(filepath) {
  con = file(filepath, "r")
  while ( TRUE ) {
    line = readLines(con, n = 1)
    if ( length(line) == 0 ) {
      break
    }
    print(line)
  }

  close(con)
}

    Verstehen das Risiko, eine Zeile zu Lesen im Speicher zu. Große Dateien ohne Zeilenumbrüche können Sie füllen Sie Ihre Speicher zu.

    InformationsquelleAutor der Antwort dvd

  2. 33

    Verwenden Sie einfach readLines auf Ihre Datei:

    R> res <- readLines(system.file("DESCRIPTION", package="MASS"))
R> length(res)
[1] 27
R> res
 [1] "Package: MASS"                                                                  
 [2] "Priority: recommended"                                                          
 [3] "Version: 7.3-18"                                                                
 [4] "Date: 2012-05-28"                                                               
 [5] "Revision: $Rev: 3167 $"                                                         
 [6] "Depends: R (>= 2.14.0), grDevices, graphics, stats, utils"                      
 [7] "Suggests: lattice, nlme, nnet, survival"                                        
 [8] "Authors@R: c(person(\"Brian\", \"Ripley\", role = c(\"aut\", \"cre\", \"cph\"),"
 [9] "        email = \"[email protected]\"), person(\"Kurt\", \"Hornik\", role"  
[10] "        = \"trl\", comment = \"partial port ca 1998\"), person(\"Albrecht\","   
[11] "        \"Gebhardt\", role = \"trl\", comment = \"partial port ca 1998\"),"     
[12] "        person(\"David\", \"Firth\", role = \"ctb\"))"                          
[13] "Description: Functions and datasets to support Venables and Ripley,"            
[14] "        'Modern Applied Statistics with S' (4th edition, 2002)."                
[15] "Title: Support Functions and Datasets for Venables and Ripley's MASS"           
[16] "License: GPL-2 | GPL-3"                                                         
[17] "URL: http://www.stats.ox.ac.uk/pub/MASS4/"                                      
[18] "LazyData: yes"                                                                  
[19] "Packaged: 2012-05-28 08:47:38 UTC; ripley"                                      
[20] "Author: Brian Ripley [aut, cre, cph], Kurt Hornik [trl] (partial port"          
[21] "        ca 1998), Albrecht Gebhardt [trl] (partial port ca 1998), David"        
[22] "        Firth [ctb]"                                                            
[23] "Maintainer: Brian Ripley <[email protected]>"                               
[24] "Repository: CRAN"                                                               
[25] "Date/Publication: 2012-05-28 08:53:03"                                          
[26] "Built: R 2.15.1; x86_64-pc-mingw32; 2012-06-22 14:16:09 UTC; windows"           
[27] "Archs: i386, x64"                                                               
R>

    Es ist ein ganzes Handbuch widmet diesem...

    InformationsquelleAutor der Antwort Dirk Eddelbuettel

  3. 27

    Hier ist die Lösung mit einem for Schleife. Wichtig ist, es nimmt den einen Aufruf zu readLines aus der for-Schleife so, dass es nicht falsch immer wieder genannt. Hier ist es:

    fileName <- "up_down.txt"
conn <- file(fileName,open="r")
linn <-readLines(conn)
for (i in 1:length(linn)){
   print(linn[i])
}
close(conn)

    InformationsquelleAutor der Antwort Layla

  4. 3

    Schreibe ich einen code für Datei Lesen, Zeile für Zeile, um mein verlangen, die unterschiedliche Linien haben unterschiedliche Datentyp Folgen die Artikel: Lesen Sie-zeilenweise-von-einer-Datei-in-r und Bestimmung der-Anzahl-der-linesrecords. Und es sollte eine bessere Lösung für die big-Datei, denke ich. Meine R-version (3.3.2).

    con = file("pathtotargetfile", "r")
readsizeof<-2    # read size for one step to caculate number of lines in file
nooflines<-0     # number of lines
while((linesread<-length(readLines(con,readsizeof)))>0)    # calculate number of lines. Also a better solution for big file
  nooflines<-nooflines+linesread

con = file("pathtotargetfile", "r")    # open file again to variable con, since the cursor have went to the end of the file after caculating number of lines
typelist = list(0,'c',0,'c',0,0,'c',0)    # a list to specific the lines data type, which means the first line has same type with 0 (e.g. numeric)and second line has same type with 'c' (e.g. character). This meet my demand.
for(i in 1:nooflines) {
  tmp <- scan(file=con, nlines=1, what=typelist[[i]], quiet=TRUE)
  print(is.vector(tmp))
  print(tmp)
}
close(con)

    InformationsquelleAutor der Antwort Nick Dong

Schreibe einen Kommentar