script R pour extraire les lignes de plusieurs fichiers texte

Question

J'ai 900 fichiers texte dans mon répertoire comme on le voit dans la figure suivante ci-dessous

chaque fichier est constitué de données dans le format suivant

667869 667869.000000 
580083 580083.000000 
316133 316133.000000 
11065 11065.000000 

Je voudrais extraire la quatrième ligne de chaque fichier texte et stocker les valeurs dans un tableau, toutes les suggestions sont les bienvenus

Answer 1

Cela ressemble plus à une question StackOverflow, semblable à Importing multiple .csv files into R

Vous pouvez essayer quelque chose comme:

setwd ("/ path/to/fichiers")

fichiers < - list.files (path = getwd (), récursifs = FALSE)

tête (fichiers)

myfiles = lapply (fichiers, la fonction (x) read.csv (fichier = x, header = TRUE))

mydata = lapply (myfiles, FUN = function (df) {df [4,]}) str (mydata)

do.call (rbind, mydata)

Answer 2

Une réponse paresseux est:

array <- c() 
for (file in dir()) { 
    row4 <- read.table(file, 
        header = FALSE, 
        row.names = NULL, 
        skip = 3, # Skip the 1st 3 rows 
        nrows = 1, # Read only the next row after skipping the 1st 3 rows 
        sep = "\t") # change the separator if it is not "\t" 
    array <- cbind(array, row4) 
} 

Vous pouvez continuer à garder le nom des fichiers

colnames(array) <- dir()