R скрипт для извлечения строк из нескольких текстовых файлов

Question

У меня есть 900 текстовых файлов в моем каталоге, как показано на следующем рисунке ниже

каждый файл состоит из данных в формате

667869 667869.000000 
580083 580083.000000 
316133 316133.000000 
11065 11065.000000 

Я хотел бы извлечь четвертую строку из каждого текстового файла и сохранить значения в массиве, любые предложения приветствуются

Answer 1

Это больше похоже на StackOverflow вопрос, похожий на Importing multiple .csv files into R

Вы можете попробовать что-то вроде:

setwd ("/ путь/к/файлов")

< файлы - list.files (путь = getwd (), рекурсивные = FALSE)

головка (файлы)

MyFiles = lapply (файлы, функция() read.csv (файл х = х, заголовок = TRUE))

MYDATA = lapply (MyFiles, ПОТЕХИ = функция (DF) {DF [4,]}) ул (MYDATA)

do.call (rbind, MYDATA)

Answer 2

Ленивый ответ является:

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) 
} 

Вы можете дополнительно сохранить название файлов

colnames(array) <- dir()