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

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)
  }
}