笨方法可以去KEGG官网复制然后分列提取
library("KEGGREST")
names <- keggGet("hsa05215")[[1]]$GENE
namesodd <- names[seq(0,length(names),2)]
namestrue <- gsub("\\;.*","",namesodd)
write.csv(namestrue, file = "hsa05215",quote = F, row.names = F)
names <- keggGet("hsa04932")[[1]]$GENE
namesodd <- names[seq(0,length(names),2)]
namestrue <- gsub("\\;.*","",namesodd)
write.csv(namestrue, file = "hsa04932_Non-alcoholic fatty liver disease (NAFLD)",quote = F, row.names = F)
网友评论