Чтение файлов и добавление столбцов в текстовый файл

Question

В папке у меня есть нефиксированное количество файлов (например, 4), каждый файл содержит 3 столбца данных (день, температура, давление).

Пример:

вПапка: file1.txt, file2.txt, file3.txt, file4.txt

file1.txt          file2.txt.          file3.txt.        file4.txt

D1_1 T1_1 P1_1    D2_1 T2_1 P2_1    D3_1 T3_1 P3_1     D4_1 T4_1 P4_1
D1_2 T1_2 P1_2    D2_2 T2_2 P2_2    D3_2 T3_2 P3_2     D4_2 T4_2 P4_2
...  ...  ...      ... ... ...      ...  ...  ...      ...  ...   ...

Я бы хотел, чтобы код R открывал все файлы в папке и сохранял их в 3 отдельных файлах (День, температура, давление)

legend Xn1_n2:
X=(D =day,T=temperature, P=pressure);
n1=(1,2,3,4 number of the file);
n2=number of measurements in the file;

Эти файлы должны быть:

 Day.                   temperature.            pressure
 D1_1  D2_1 D3_1 D4_1   T1_1 T2_1 T3_1 T4_1    T1_1  T2_1 T3_1 T4_1
 D1_2  D2_2 D3_2 D4_2   T1_2 T2_2 T3_2 T4_2    T1_2  T2_2 T3_2 T4_2 
 ...   ...  ...  ...     ...  ...  ...  ...     ...   ...  ...  ...

Можете ли вы помочь мне?

Answer 1

Прочитать все файлы, затем просмотреть список данных и извлечь столбец nth :

# read all the files
myFiles <- lapply(list.files(pattern = "^f.*.txt"), read.table, stringsAsFactors = FALSE)

# loop through list, and extract nth column, e.g.: Day, 1st column
myDay <- sapply(myFiles, "[[", 1)

myDay
#      [,1]   [,2]   [,3]   [,4]  
# [1,] "D1_1" "D2_1" "D3_1" "D4_1"
# [2,] "D1_2" "D2_2" "D3_2" "D4_2"

# output to a file
write.table(myDay, "myDay.txt", row.names = FALSE, col.names = FALSE, quote = FALSE)