如何根据名称读取文本文件？

Question

我在一个文件夹fm 中有文本文件，该文件夹对每个站点都有三个不同名称的测量值，但它们共享站点名称。名称的结构相似。我有另一个文件夹st，其中文件名的结构不同，但文件名中包含站点名称。我想在fm 中绘制三个测量值，并在sm 中绘制相应的文件（站点名称）。

我可以将所有文件读取为：

   wgl= read.table("C:\\Users\\wg_ave.txt", sep ='' , header =TRUE)

我可以很容易地手动执行此操作，但由于我有多个文件，我想编写一个函数来读取相应的文件并对文件夹中的所有文件执行此操作。

  First step:Search in folder `fm`files with the same site name
  Wgl: l_name of the site
  Wgk: k_name of the site
  Wger: er_name of the site

阅读它们：

      Wgl= read.table("C:\\Users\\wg_ave.txt", sep ='' , header =TRUE)
       etc….

在文件夹sm中搜索该站点的名称并阅读它

wgsitu= read.table("C:\\Users\\wlkave.txt", sep ='' , header =TRUE)

进行计算、绘图等

        cor(Wgl$va,wgsitu$fg)
        cor(Wgk$va,wgsitu$fg)
        cor(Wger$va,wgsitu$fg)

循环其他网站

感谢您的帮助

Answer 1

你可以这样做：（非常原始的代码）

files <- list.files("path-to-folder/fm", pattern = "Your File-Pattern", full.names = TRUE)

版本 A：
如果站点名称保存在文件的列中：

Wgl <- lapply(files, read.table, sep = '', header = TRUE)

然后你提取站点名称

site_names <- sapply(Wgl, function(x) {x$sitename_column})

（假设所有文件都具有包含站点名称的同一列）

版本 B：
如果站点名称是文件名的一部分 files

site_names <- gsub("pattern of pre and suffixes", files)

读取数据
正如版本 A 中所做的那样

site_file_names <- list.files("path-to-folder/sm", pattern = paste0(site_names, collapse = "|"), full.names = TRUE)
dat <- lapply(files, read.table, sep = '', header = TRUE)

Answer 2

网站名称的循环可能更容易：

        #set your directory
        setwd("C:\\Users\\fm")

        #you get the list of files in the directory
        lista<-list.files() 

        #example (don't run)
        #lista<-c("l_new","k_new","er_new","l_old","k_old","er_old")

        # I want a loop for each site. Suppose we have 2 sites old and new
        my_site<-c("new","old")


        for (i in 1:length(mysite)) {

        setwd("C:\\Users\\fm")
        #get the 3 files of i site
        files<-grep(my_site[i],lista,fixed=TRUE, value=TRUE)

        Wgl<- read.table(paste("C:\\Users\\fm\\","l_",my_site[i],".txt",sep="")    , sep ='' , header =TRUE)
        Wgk<-read.table(paste("C:\\Users\\fm\\","k_",my_site[i],".txt",sep="")    , sep ='' , header =TRUE)
        Wger<-read.table(paste("C:\\Users\\fm\\","er_",my_site[i],".txt",sep="")   , sep ='' , header =TRUE)

          setwd("C:\\Users\\st")
         Wgl_file<-grep(wgl,list.files(),fixed=TRUE, value=TRUE)
         Wgl_site<-read.table(paste("C:\\Users\\st\\",Wgl_file,sep="")  , sep ='' , header =TRUE)

        Wgk_file<-grep(Wgk,list.files(),fixed=TRUE, value=TRUE)
         Wgk_site<-read.table(paste("C:\\Users\\st\\",Wgk_file,sep="")  , sep ='' , header =TRUE)

        Wger_file<-grep(Wger,list.files(),fixed=TRUE, value=TRUE)
         Wger_site<-read.table(paste("C:\\Users\\st\\", Wger_file,sep="")  , sep ='' , header =TRUE)

[...]
        }