Прочтите несколько текстовых файлов

Question

Я читаю прикрепленный файл .txt, используя приведенный ниже код R. У меня есть 2200 txt-файлов, подобных этому с разными идентификаторами станции. Мне нужно вывести только год для данных о пиковых расходах. Например,

Year  Peak 
1929 4050 
1940 7000 
1958 4050 
... 

Может кто-нибудь помочь мне изменить этот код, чтобы добиться этого.

Мой код R показан ниже.

rm(list=ls(all=TRUE)) 
iPath <- 'C:/Desktop/flow_raw/Region-03/' 
mydata <- read.table("02053200-PeakFlow-uptoWY2015.txt", sep="\t", header=TRUE) 
out <- mydata[c(3,5)] 

Answer 1

Если я правильно понимаю ваш вопрос, вы хотите сразу импортировать 2200 текстовых файлов. По какой-то причине я не вижу вложения, но вы должны иметь возможность читать данные с помощью функции Corpus из пакета tm.

В вашем случае: (путь должен привести к папке, в которой все текстовые файлы живут)

TextCorpus <- Corpus(DirSource("C:/Desktop/flow_raw/Region-03")) 
TextCorpus$content 

Вы должны быть в состоянии подмножества этих документов. Обычно я составляю список содержимого документов, чтобы у вас был список из 2200 элементов, содержащих исходный текст.

Answer 2

Я не вижу прикрепленного файла.

Существуют различные варианты выполнения задачи.

library(plyr) #you only need these packages if you follow my first Option 
library(dplyr) 

files <- dir("C:/Desktop/flow_raw/Region-03", 
      full.names = TRUE) 


# OPT. 1: if you need a Data Frame 
df <- lapply(files, function(x) 
     read.table(x, sep = '\t', header = FALSE)[c(3,5)]) %>% 
     plyr::ldply() #the '.id' argument might be useful 

# OPT. 2: if you need a list 
listTxt <- lapply(files, function(x) 
      read.table(x, sep = '\t', header = FALSE)[c(3,5)]) 

NB: Если вам нужна функция быстрого чтения, пожалуйста, посмотрите на

data.table :: FREAD