一坞笙、需要的數(shù)據(jù)
（1）eggnog對(duì)基因的注釋(名字例如叫:egg.tsv)
TSV格式
image.png
（2）ko00001.json文件
下載地址：
https://www.genome.jp/kegg-bin/get_htext?ko00001
(3)目的基因集
image.png
二哮独、需要的R包
rio夺荒、stringr、tidyverse歪脏、clusterprofiler
三疑俭、構(gòu)建過程
1.導(dǎo)入注釋文件到R
options(stringsAsFactors = F)
egg<-rio::import("egg.tsv")
2.把注釋文件里的空值改為NA
egg[egg==""]<-NA
3.從注釋文件里把基因與KEGG提取出來:
gene2ko <- egg %>%
dplyr::select(GID = query_name, KO = KEGG_ko) %>%
na.omit()
image.png
4.將KO行中有多個(gè)值的拆分為多行
all_ko_list=str_split(gene2ko$KO,",")
gene2ko <- data.frame(GID=rep(gene2ko$GID,times=sapply(all_ko_list,length)),KO=unlist(all_ko_list))
image.png
5.將gene2ko中，KO列的"ko:"去掉
gene2ko$KO=str_replace(gene2ko$KO,"ko:","")
image.png
6.對(duì)json文件操作
if(!file.exists('kegg_info.RData')){
library(jsonlite)
library(purrr)
library(RCurl)
update_kegg <- function(json = "ko00001.json",file=NULL) {
pathway2name <- tibble(Pathway = character(), Name = character())
ko2pathway <- tibble(Ko = character(), Pathway = character())
kegg <- fromJSON(json)
for (a in seq_along(kegg[["children"]][["children"]])) {
A <- kegg[["children"]][["name"]][[a]]
for (b in seq_along(kegg[["children"]][["children"]][[a]][["children"]])) {
B <- kegg[["children"]][["children"]][[a]][["name"]][[b]]
for (c in seq_along(kegg[["children"]][["children"]][[a]][["children"]][[b]][["children"]])) {
pathway_info <- kegg[["children"]][["children"]][[a]][["children"]][[b]][["name"]][[c]]
pathway_id <- str_match(pathway_info, "ko[0-9]{5}")[1]
pathway_name <- str_replace(pathway_info, " \\[PATH:ko[0-9]{5}\\]", "") %>% str_replace("[0-9]{5} ", "")
pathway2name <- rbind(pathway2name, tibble(Pathway = pathway_id, Name = pathway_name))
kos_info <- kegg[["children"]][["children"]][[a]][["children"]][[b]][["children"]][[c]][["name"]]
kos <- str_match(kos_info, "K[0-9]*")[,1]
ko2pathway <- rbind(ko2pathway, tibble(Ko = kos, Pathway = rep(pathway_id, length(kos))))
}
}
}
save(pathway2name, ko2pathway, file = file)
}
update_kegg(json = "ko00001.json",file="kegg_info.RData")
}
產(chǎn)生一個(gè)叫kegg_info.RData的文件
image.png
7.加載上一步創(chuàng)建的文件
load("kegg_info.RData")
出現(xiàn)這兩個(gè)變量
image.png
分別是這樣：
ko2pathway
image.png
pathway2name
image.png
8.將ko2pathway的列名婿失，由Ko,Pathway钞艇，改為KO,Pathway
colnames(ko2pathway)=c("KO",'Pathway')
image.png
9.創(chuàng)建 Term2gene
Term2gene <- gene2ko %>%left_join(ko2pathway, by = "KO") %>%dplyr::select(Pathway,GID) %>%na.omit()
image.png
四.enrichr分析
library(clusterProfiler)
keggS7 <- enricher(gene=X557VS550All_resultsfiler$X1,pvalueCutoff = 0.05,pAdjustMethod = "BH",TERM2GENE = Term2gene,TERM2NAME = pathway2name)
gene目的基因集、Term2gene第9步豪硅、pathway2name由第7步創(chuàng)建
務(wù)必 目的基因集的基因ID和注釋文件的基因ID一致
五哩照、簡(jiǎn)單畫圖
barplot(keggS7)
image.png
dotplot(keggS7)
image.png
