用R语言实现选取一个文件夹下所有txt文件的几列数据

有时我们会遇到这样的业务需求，比如我们有很多数据文件，里面有很多数据项，一列表示一个数据项，并且不同文件数据项的排列顺序也是随机的。但是我们只需用到其中的几列数据，并且我们需要我们用到的几列数据按照既定的顺序排列，如下图：

这个问题在我的博客中有用python编程解决的，这里主要是用R解决，对比一下两种语言的解决问题的快捷性，后面的说明不在赘述，可参考前一篇博文，下面是代码：

inputDir  = "./raw"
outputDir = "./select"

for (fileName in dir(inputDir)) 
{
  print(fileName)
  inputPath = sprintf("%s/%s", inputDir, fileName)
  data = read.table(inputPath, header = TRUE)
  cnames = colnames(data)
  cnames[1] = "DEPTH"
  cnames[cnames == "DEVI"] = "DEV"
  cnames[cnames == "DV"]   = "DEV"
  cnames[cnames == "AZI"]  = "AZIM"
  cnames[cnames == "AZ"]   = "AZIM"
  colnames(data) = cnames
  data = data[c("DEPTH", "AZIM", "DEV")]

  outputPath = sprintf("%s/%s", outputDir, fileName)
  write.table(data, outputPath, row.names