# #——first_load,呼应= TRUE,警告= FALSE,结果=“隐藏”,消息= FALSE - - - - - -库(RITANdata)库(日坛)# #——geneset_overlap_d,呼应= TRUE,警告= FALSE, fig.width = 7, fig.height = 7, fig.align =“中心”- - - - - #显示多个基因的一部分常见疾病基因的关系。o < - geneset_overlap (geneset_list DisGeNet美元)情节(密度(c (o (upper.tri (o)))),日志= y, ylim = c (1 e - 3, 1 e3),主要= " xlab =“分数共享基因”,ylab =的概率())# #——geneset_overlap_h,呼应= TRUE,警告= FALSE, fig.width = 7, fig.height = 7, fig.align =“中心”- - - - - #显示疾病及其能够重叠,当每个疾病都有一些重叠的至少80%。诊断接头(o) < - NA #忽略self-overlap我<——(o > 0.8,加勒比海盗。印第安纳州= TRUE)垫< - o(独特的(我[1]),独特的(我[2])]的热图(垫、坳=牧师(灰色(seq(0, 1,长度。cexRow = = 15)))。7,cexCol = 0.7,利润= c (7)) # #——geneset_overlap2_d,呼应= TRUE,警告= FALSE, fig.width = 7, fig.height = 7, fig.align =“中心”- - - - - #显示基因常见疾病基因之间关系的分数和GO-Slim术语定义o < - geneset_overlap (geneset_list DisGeNet美元,geneset_list GO_slim_generic美元)o < - o [, ! (colnames (o) % % c (‘biological_process’,‘molecular_function’,‘cellular_component’))) #删除每个sub-ontology阴谋的根(密度(c (o)),日志= ' y ',主要= " xlab =“分数共享基因”,ylab =的概率())# #——geneset_overlap2_h,呼应= TRUE,警告= FALSE, fig.width = 7, fig.height = 7, fig.align =“中心”- - - - - #显示人际关系的热图,疾病和术语有95%的基因共同我<——(o > 0.95,加勒比海盗。印第安纳州= TRUE)垫< - o(独特的(我[1]),独特的(我[2])]的热图(垫、坳=牧师(灰色(seq(0, 1,长度。cexRow = = 15)))。7,cexCol = 0.7,利润= c (7)) # #——geneset_overlap3,呼应= TRUE,警告= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - rownames (o) [o (,“chromosome_organization”) > 0.66) # #——geneset_overlap4,回声= TRUE,警告= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - d < - rownames (o) [o (,“cell_motility”) > 0.66) str (d) new_geneset <——相交(独特(unlist (geneset_list DisGeNet美元[d])),独特的(unlist (geneset_list GO_slim_generic cell_motility美元)))str (new_geneset) # #——resource_reduce_1,呼应= TRUE,警告= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - unique_diseases <——resource_reduce (geneset_list DisGeNet美元)# #——resource_reduce_2,呼应= TRUE,警告= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - unique_disease_slim < - resource_reduce (c (geneset_list DisGeNet美元,geneset_list GO_slim_generic美元),min_overlap = 0.95)