Как объединить векторы в R

Question

У меня есть набор данных в формате txt с 31968 файлами, и каждый файл содержит 365 значений в одном столбце. Я хочу объединить каждый 48 файлов в последовательности, и это принесет 17520 значений.

Inputs as like 
    a = (X1, x2…………………………………x48) 
    b =(x49, x50 ………………………………x96) 

    Expected outputs like as 
    a = (1, 2, 3, 4,………………………………..17520) 
    b= (1, 2, 3, …………………………………..17520) 

Как я могу загрузить кучу 31968 файл и выполнить эту работу в R.

Answer 1

С 31968/48 дает 666, создайте список с 666 векторами, каждый из которых содержит 48 имен файлов.

file_names <- list.files(path=".", pattern="\\.txt") # change the path to the directory where the files are kept 
list_of_files <- lapply(1:666, function(x) file_names[((x-1)*48 + 1):((x-1)*48 + 48)]) 

Читать файлы в R, как list_of_data и использовать do.call & rbind конвертировать в один data.frame.

for(i in 1:666){ 
    list_of_data <- lapply(list_of_files[[i]], read.table, sep="\t") # put in appropriate read.table parameters for the text files 
    assign(paste0("a", i), do.call(rbind, list_of_data)) 
    } 

Альтернатива:

for(i in 1:666){ 
    list_of_data <- lapply(list_of_files[[i]], read.table, sep="\t") 
    assign(sprintf("a.%03d", i), do.call(rbind, list_of_data)) 
    } 

Это должно вернуть 666 объектов, например,

"a.001" "a.002" "a.003" "a.004" "a.005" "a.006" "a.007" "a.008" "a.009" "a.010" "a.011" 
"a.012" "a.013" "a.014" "a.015" "a.016" "a.017" "a.018" "a.019" "a.020" "a.021" "a.022" 

Чтобы объединить все 666 data.frame:

frames <- grep("a[.]", ls(), value=T) 
library(plyr) 
output <- ldply(frames, get) 

Answer 2

setwd('files location') 
file_names = list.files() 
for(i in 1:length(file_names)){ 
    p = data.frame() 
    for(i in i:i+47){ 
     setwd('input files location') 
     d = read.table(file_names[i],col.names=c("id"),strip.white=TRUE) 
     p = rbind(p,d) 
    } 
    setwd('output location') 
    write.table(p,paste(file_names[i],".txt",sep=""),row.names=F) 
} 

Смотрите, что все входные файлы лежат в одной директории и никакие другие файлы не присутствуют в этом каталоге , Результат создается с именем 48-го файла, который читается в каждом объединенном списке из 48 файлов.