R ：MetaCyc路径名称提取脚本

# 清空环境变量
rm(list = ls())

# 设置工作目录，请修改为你的文件实际路径
setwd("C:\\Users\\Administrator\\Desktop\\machine learning\\Heatmap\\MetaCyc")

# 读取路径数据
Pathway_raw <- read.table(file = "Pathway.txt", sep = "\t", header = TRUE, 
                          check.names = FALSE, row.names = 1)

# 提取路径名称最后一个 "|" 后面的部分
Pathway_names <- sapply(rownames(Pathway_raw), function(x) {
  # 使用正则表达式提取最后一个 "|" 后的部分
  sub(".*\\|", "", x)
})

# 将提取的路径名称写入txt文件
write.table(Pathway_names, file = "Pathway_Names.txt", 
            row.names = FALSE, col.names = FALSE, quote = FALSE)

# 提示任务完成
cat("路径名称已成功提取并保存到 Pathway_Names.txt 文件中。\n")