怎么批量把生成的95个list文件的第一列删除

好的，如果您需要批量删除生成的95个list文件的第一列，可以使用以下代码。假设生成的95个list文件均保存在当前工作目录下：

# 获取当前工作目录下所有的list文件名
file_list <- list.files(pattern = "_grep_trinity.list")

# 遍历每个文件，删除第一列并重新写出为一个新的文件
for (file in file_list) {
  # 读取文件
  data <- read.table(file, header = FALSE, sep = "\t")
  # 删除第一列
  data <- data[, -1]
  # 重命名文件名
  new_file <- sub("_grep_trinity.list", "_new.list", file)
  # 将修改后的数据写出为一个新的文件
  write.table(data, file = new_file, quote = FALSE, sep = "\t", row.names = FALSE, col.names = FALSE)
}

在以上代码中，首先使用`list.files`函数获取当前工作目录下所有的list文件名。然后使用循环遍历每个文件，读取文件中的数据，删除第一列，重新命名文件名，并将修改后的数据写出为一个新的文件。在`read.table`函数中，`header = FALSE`参数用于告诉函数数据文件中没有列名，`sep = "\t"`参数用于设置列分隔符为制表符。在`write.table`函数中，`quote = FALSE`参数用于去除输出文件中的引号，`sep = "\t"`参数用于设置输出文件中的列分隔符为制表符，`row.names = FALSE`参数用于去除输出文件中的行名，`col.names = FALSE`参数用于去除输出文件中的列名。

执行完以上代码后，将会在当前工作目录下生成95个新的list文件，不含第一列数据。新的文件名为`第一列内容_new.list`，对应于原始文件去除第一列后的结果。