如何批量读取txt文件，并且将每个文件的文件名作为一个变量值

TommyZhan

lz是物理系学生，做实验对于不同强度下的激光探测某种物理性质。在处理数据的时候遇到一些问题。比如最后得出的都是形如1_1.txt，2.txt，4.txt,...,33.txt,43.txt,56.2.txt之类的文件。每个txt都是三列数据，有用的是第一列和第三列。我希望把第一列和第三列和文件名中的数字（激光相对强度）读取出来组成一个数据表。求高手指点。data

vivihe

# 设置为放置txt文件的路径
setwd('F:/Download/data/3')

fall <- dir()

data.out <- data.frame()

for (fnow in fall) {
    str <- strsplit(fnow, '[_.]')
    num <- as.numeric(str[[1]][1])
    df.read <- read.table(fnow)
    df.use <- data.frame(num = num,  
                         v1 = df.read$V1, v3 = df.read$V3)
    data.out <- rbind(data.out, df.use)
}

# 注意设置输出文件名
write.csv(data.out, file = 'F:/out.csv')