# #——风格,回声= FALSE,结果= '飞机 '------------------------------------ suppressPackageStartupMessages({库(gwascat ) }) ## ---- getg --------------------------------------------------------------------- 库(gwascat) requireNamespace(“图”)的数据(efo.obo.g) efo.obo.g sn =头(图::节点(efo.obo.g)) sn # #——procdef ------------------------------------------------------------------ nd =图::nodeData (efo.obo.g) alldef =酸式焦磷酸钠(nd),函数(x) unlist (x[[“def”]]))allnames =酸式焦磷酸钠(nd,函数(x) unlist (x[[“name”]]))alld2 =酸式焦磷酸钠(alldef、功能(x)如果(is.null (x))(" ")返回x [1]) mydf = data.frame (id =名字(allnames)概念= as.character (allnames), def = unlist (alld2 )) ## ---- limtab ------------------------------------------------------------------- limdf = mydf [grep(“autoimm mydf def美元,ignore.case = TRUE),] requireNamespace (DT) suppressWarnings ({DT: datatable (limdf rownames = FALSE,选择=列表(pageLength = 5 )) }) ## ---- 漏 ---------------------------------------------------------------------- 图::nodeData (efo.obo。g, EFO: 0000540)问题=图::ugraph (efo.obo.g) neighISD =图::的(问题,EFO: 0000540)[[1]]酸式焦磷酸钠(图::nodeData(图::子图(neighISD efo.obo.g )), "[[", " 的名字 ") ## ---- lkggg -------------------------------------------------------------------- requireNamespace(“RBGL”)p = RBGL:: sp。(efo.obo之间。g,“EFO: 0000685”,“EFO: 0000001”)酸式焦磷酸钠(图::nodeData(图::子图(p [[1]] path_detail美元,efo.obo.g )), "[[", " 的名字 ") ## ---- lkef --------------------------------------------------------------------- 数据(ebicat_2020_04_30)名称(S4Vectors: mcols (ebicat_2020_04_30)) adinds = grep(“autoimmu”,ebicat_2020_04_30 MAPPED_TRAIT美元)adgr = ebicat_2020_04_30 [adinds] adgr S4Vectors:: mcols (adgr) [c(“MAPPED_TRAIT”、“MAPPED_TRAIT_URI”)]