Импортируйте несколько файлов .txt и объединяйте их

Question

Существует около 3 тыс. Текстовых файлов, разделенных запятой с одинаковой структурой и без имен столбцов. например, 08/15 / 2018,11.84,11.84,11.74,11.743,27407 ///

Мне нужны только col1 (дата) и col 5 (11.743) и я хотел бы импортировать все эти векторы с именемназначенный файл .txt (AAAU.txt -> вектор AAAU). На втором этапе я хотел бы объединить их в матрицу со всеми возможными датами в строках и столбцах с именем файла .txt и значением col5 для каждой даты.

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

Приветствия за любую помощь!

Answer 1

Я не тестировал этот код, но я думаю, что он будет работать для вас. Вы можете использовать list.files () для извлечения всех имен файлов в переменную, затем прочитать каждое из них по отдельности и добавить его в новый фрейм данных с помощью rbind () или cbind ()

setwd("C:/your_favorite_directory/")
fnames <- list.files()
csv <- lapply(fnames, read.csv)
result <- do.call(rbind, csv)

# grab a subset of the fields you need 
df <- subset(result, select = c(a, e))

#then write your final file
write.table(df,"AllFiles.txt",sep=",")

Такжезнак «-» указывает отбрасывание переменных. Убедитесь, что имена переменных НЕ указываются в кавычках при использовании функции subset ().

df = subset(mydata, select = -c(b,c,d) )