从多个文本文件中读取数据并添加指标值

Question

我有一个充满文本文件的文件夹（data-01.txt，data-02.txt.....data-70.txt）....我如何阅读所有这些文本文件的内容并添加指示数据来自哪个文件的指示符值。例如

 Id    F.Name       L.Name     Gender Age     Indicator
 1     Sam          Houston    M      21      1
 2     Jamal        Wilson     M      22      1
 3     Joe          Davidson   M      45      2
 4     Catavia      Jones      F      23      3

指标 1 表示数据集来自 data-01.txt ， 指标 2 表示数据集来自 data-02.txt

我试过了

data_list = lapply(my.files, read.table, sep="\t", header=TRUE )

不确定如何在 lapply 函数中添加指标值参数。

任何有关如何执行此操作的建议都会有所帮助。

Answer 1

我会选择这样的东西。尚未对其进行测试，因此您可能需要调整一两件事。

my.files <- list.files(".","*.txt")

for(i in seq_along(my.files)) {
  if(i==1) {
    my.df <- read.csv(my.files[i], header = TRUE)
    my.df$indicator <- i
  } else {
    tmp <- read.csv(my.files[i], header = TRUE)
    tmp$indicator <- i
    my.df <- rbind(my.df, tmp)
  }
}