Question

大约有3k .txt文件，用逗号分隔，结构相同，没有列名。例如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) )

导入多个.txt文件并将其合并

1 个答案: