在 R 中，我有 10 个固定宽度的文本文件，分为 8 个部分.如何提取 80 个文件，将其分成各自的文件并合并各部分?

Question

所以我有 80 个文件名格式的文件：

P.A3588.ACO.CCLF0.ROW1.ROW30000
P.A3588.ACO.CCLF1.ROW1.ROW30000
P.A3588.ACO.CCLF0.ROW30001.ROW60000

有 80 个固定宽度的文本文件：10 个 CCLF 编号(CCLF0，CCLF1,...,CCLF9(中的每一个都有 8 个部分。我希望能够按CCLF编号分组，应用列宽向量，并绑定CCLF部分的行。

以下是我到目前为止尝试过的方法。它不起作用，但给出了我正在尝试的想法。

filenames <- list.files(dataPath)
names <- substr(filenames,13,17)
CCLF1_width <- c(13,6,11,2,10,10,1,1,7,7,2,17,1,2,2,4,1,10,10,10,10,10,2,10,10,10,11,2,2,1,1,1)
CCLF2_width <- c(13,10,11,2,10,10,4,10,5,11,6,10,10,24,17,2,2,2,2,2)
CCLF3_width <- c(13,11,2,2,7,10,11,6,10,10,1)
CCLF4_width <- c(13,11,2,1,2,7,11,6,10,10,7,1)
CCLF5_width <- c(13,10,11,2,10,10,3,2,2,1,2,10,10,5,15,1,7,10,10,2,2,2,10,10,40,11,17,24,2,2,2,2,2,2,7,7,7,7,7,7,7,7,1)
CCLF6_width <- c(13,10,11,2,10,10,1,2,10,10,5,15,1,10,10,2,2,2,10,10,40,11,17,2)
CCLF7_width <- c(13,11,11,2,10,2,20,1,1,24,9,2,20,13,2,10,10,12,9)
CCLF8_width <- c(11,2,3,5,10,1,1,3,2,2,10,10,10,30,15,40,1,1)
CCLF9_width <- c(11,11,10,10,12)
CCLF0_width <- c(11,11)
for (i in length(filenames)){
assign(paste0(substr(filenames,13,17)), read_fwf(grepl("CCLF1",filenames),paste0(i,"_width")))
}

Answer 1

您可以将list.files与参数一起使用recursive = True和full.names = TRUE来获取所有 80 个 txt 文件的文件路径，然后使用lapply或for与read.table一起读取一个list中的所有文件，其中有 80 个元素，使用do.call(rbind,your_list)将列表组合成一个数据框。

filename<-list.files(folder_path,recursive = T,pattern = ".txt",full.names = T)
all_file<-lapply(filename,read.table)
df<-do.call(rbind,all_file)