首先获取所有文件的名称并将其读入list

library(dplyr)
library(readr)

## identify the IDs
files = list.files(pattern = "tsv$")
## edited based on comments: first 4 characters is the ID
ID = files |> substr(1, 4) |> unique()

## for each ID, read in all matching files and bind them together
data = lapply(ID, \(x) {
  lapply(list.files(pattern = paste0(x, ".*tsv$")), read_tsv) |>
    bind_rows()
})
setNames(data, ID)

字符串
这将为您给予一个命名列表，其中每个列表项都是单个ID的单个数据框。