导入多个.txt文件并合并它们

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=",")

此外，“-”符号表示删除变量。当使用子集()函数时，请确保变量名不会在引号中指定。

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