从文件名定义对象

如果我理解你的问题 你做的事情

a <- "Station_YYYY.txt"
dat<-read.csv(a,OTHER OPTIONS)

只需像这样添加车站和年份:

dat$station<-strsplit(a,"[._]")[[1]][1]
dat$year<-strsplit(a,"[._]")[[1]][2]

另一种方法是做几个简单的循环。。。

要使以下工作正常,请确保您的本地环境为空,因为我们将搜索“_”作为文件名

setwd('') # direct R to where the files are stored
rm(list=ls())
files <- list.files()

for(file in files){
  name <- paste(file)
  name <- assign(name, read.csv(file))
}

data_sets <- grep('_', ls(), value = T)

allData <- data.frame()
for(i in data_sets){
  dat <- get(i)
  station_end <- data.frame(str_locate(i, '_'))$start - 1
  year_end <- data.frame(str_locate(i, '_'))$end + 4
  dat$station <- str_sub(i, 1, station_end)
  dat$year <- str_sub(i, station_end + 2, year_end)
  allData <- rbind(allData, dat)
}

allData