Wie zu Lesen mehrerer xlsx-Datei in R mit Schleife bestimmte Zeilen und Spalten

Habe ich zum Lesen mehrerer xlsx-Datei mit zufälligem Namen in den single-dataframe. Struktur jeder Datei ist die gleiche. Ich habe zum importieren von bestimmten Spalten nur.

Habe ich versucht, dieses:

dat <- read.xlsx("FILE.xlsx", sheetIndex=1, 
                  sheetName=NULL, startRow=5, 
                  endRow=NULL, as.data.frame=TRUE, 
                  header=TRUE)

Aber das ist nur eine Datei auf einmal und ich konnte nicht angeben, dass meine besonderen Spalten.
Ich habe sogar versucht :

site=list.files(pattern='[.]xls')

aber nach, dass die Schleife nicht funktioniert. Wie es zu tun? Vielen Dank im Voraus.

InformationsquelleAutor user2504063 | 2015-08-25
  1. 2

    Ich würde Sie Lesen, jedes Blatt ein Liste:

    Bekommen Dateinamen:

    f = list.files("./")

    Dateien Lesen:

    dat = lapply(f, function(i){
    x = read.xlsx(i, sheetIndex=1, sheetName=NULL, startRow=5,
        endRow=NULL, as.data.frame=TRUE, header=T)
    # Get the columns you want, e.g. 1, 3, 5
    x = x[, c(1, 3, 5)]
    # You may want to add a column to say which file they're from
    x$file = i
    # Return your data
    x
})

    Kann dann auf die Elemente in Ihrer Liste mit:

    dat[[1]]

    Oder tun die gleiche Aufgabe, Sie mit:

    lapply(dat, colmeans)

    Verwandeln Sie in einen Daten-frame (wo Sie Ihre Datei Spalte wird jetzt nützlich):

    dat = do.call("rbind.data.frame", dat)
    • Hey Ihr code funktionierte für mich, aber es funktionierte nur für sehr kleine Größe von Dateien sagen 50KB. Aber ich habe Dateien, die etwa 1 MB Größe. Was sollte ich dann tun?
    • Versuchen Sie ein anderes excel-Lesen-Paket, dieses kann Ihre beste Wette: blog.rstudio.org/2015/04/15/readxl-0-1-0. Beachten Sie auch, dass das öffnen von vielen Dateien gleichzeitig verursachen Sie Probleme mit dem Speicher.
    InformationsquelleAutor MikeRSpencer
  2. 0

    Ich bin mehr vertraut mit einer for-Schleife, die kann ein bisschen mehr Aufwand verbunden.

    filelist <- list.files(pattern = "\\.xlsx") # Liste alle xlsx-Dateien aus dem Verzeichnis

    allxlsx.files <- list()  # create a list to populate with xlsx data (if you wind to bind all the rows together)
count <- 1
for (file in filelist) {
   dat <- read.xlsx(file, sheetIndex=1, 
              sheetName=NULL, startRow=5, 
              endRow=NULL, as.data.frame=TRUE, 
              header=TRUE) [c(5:10, 12,15)] # index your columns of interest
   allxlsx.files[[count]] <-dat # creat a list of rows from xls files
   count <- count + 1
}

    zurück konvertieren Daten.Rahmen

    allfiles <- do.call(rbind.data.frame, allxlsx.files)
    InformationsquelleAutor Wyldsoul
  3. 0

    Für eine variation auf Wyldsoul Antwort, aber mit einer for-Schleife über mehrere Excel-sheets (zwischen 1 und j) in der gleichen Excel-Datei, und die Bindung mit dplyr: 

    library(gdata) 
library(dplyr)

for (i in 1:j) {
  dat <- read.xls(f, sheet = i) 
  dat <- dat[,1:14] # index your columns of interest
  allxlsx.files[[count]]
  count <- count + 1
}

allfiles <- do.call(bind_rows, allxlsx.files)
    • Sie brauchen, um etwas zu ordnen allxlsx.files[[count]] wahrscheinlich dat, und vereinfachen Sie Ihre Letzte Zeile zu bind_rows(allxlsx.files)
    InformationsquelleAutor Emily Darling
Schreibe einen Kommentar