Conteggio del numero di righe di una serie di file CSV

Question

Sto lavorando a un tutorial R e sospetto che devo utilizzare una di queste funzioni, ma non sono sicuro di quale (Sì, le ho ricercate ma fino a diventare più fluente nella terminologia R sono abbastanza confusi).

Nella mia directory di lavoro è presente una cartella "specdata". Specdata contiene centinaia di file CSV denominati 001.csv - 300.csv.

La funzione su cui sto lavorando deve contare il numero totale di righe per un numero inserito di file csv. Quindi, se l'argomento della funzione è 1:10 e ciascuno di questi file ha dieci file, tornare 100.

Ecco quello che ho finora:

complete <- function(directory,id = 1:332) { 
    setpath <- paste("/Users/gcameron/Desktop",directory,sep="/") 
    setwd(setpath) 
    csvfile <- sprintf("%03d.csv", id) 
    file <- read.csv(csvfile) 
    nrow(file) 
} 

Questo funziona quando l'argomento ID è un numero, dicono 17. Ma, se dire ingresso I 10:50 come argomento, ricevo un errore:

Error in file(file, "rt") : invalid 'description' argument 

Cosa devo fare per essere in grado di contare il numero totale di righe dal parametro ID inputed?

Answer 1

read.csv si aspetta di leggere un solo file, quindi è necessario loop su file, un modo idiomatico R di farlo è quello di utilizzare sapply:

nrows <- sapply(csvfile, function(f) nrow(read.csv(f))) 
sum(nrows) 

Per esempio, qui è una riscrittura della funzione complete :

complete <- function(directory,id = 1:332) { 
    csvfiles <- sprintf("/Users/gcameron/Desktop/%s/%03d.csv", directory, id) 
    nrows <- sapply(csvfiles, function(f) nrow(read.csv(f))) 
    sum(nrows) 
} 

Answer 2

I problemi di compiti a casa vengono solitamente etichettati come tali, anche se non so se è necessario, ma questo è chiaramente compito a casa.

La vostra funzione come scritta si aspetta che l'id sia non un vettore (a fronte del valore predefinito che è un vettore di numeri interi).

Cambiarlo per utilizzare una delle funzioni * apply (più concisa e comune) o anche un ciclo esplicito. Per ogni elemento nel vettore id, è necessario chiamare una funzione che apre quel file e conta le osservazioni.

This stackoverflow post ha una buona spiegazione delle differenze tra le funzioni * apply.