setwd("C:\\Users\\Administrator\\Desktop")
# 加载所需的库
library(data.table)
# 文件路径
file_path <- "filtered_file_path_here.tsv" # 替换为您的文件路径
# 从文件中读取数据
data <- fread(file_path, sep="\t")
# 假设列名是"Pathway"，筛选不含“g__”的行
filtered_data <- data[!grepl("g__", Pathway), ]
# 如果您想将筛选结果保存到新的TSV文件中：
output_file_path <- "filtered_file_path_here2.tsv" # 替换为您想要的输出文件路径
fwrite(filtered_data, output_file_path, sep="\t")