## CBNplot: Bayesian network plot for the enrichment analysis results <!-- badges: start --> [](https://github.com/noriakis/CBNplot/actions/workflows/R-CMD-check.yaml) <!-- badges: end --> Plot bayesian network inferred from expression data based on the enrichment analysis results from libraries including `clusterProfiler` and `ReactomePA` using `bnlearn`. ### Installation ```R BiocManager::install("CBNplot") ``` ```R library(devtools) install_github("noriakis/CBNplot") ``` ### Usage - Documentation: [https://noriakis.github.io/software/CBNplot/](https://noriakis.github.io/software/CBNplot/) - Web server: ~~[https://cbnplot.com](https://cbnplot.com)~~ - Currently moving to the new server (2024/04/07) ### Plot examples - The gene-to-gene relationship compared with the reference network. <img src="https://github.com/noriakis/software/blob/main/images/CBNplot_readme_1.png?raw=true" width="800px"> - The plot is customizable highliting edges and nodes like hub genes. <img src="https://github.com/noriakis/software/blob/main/images/CBNplot_readme_2.png?raw=true" width="800px"> - The example using `MicrobiomeProfiler`, thanks to the fix by [@xiangpin](https://github.com/xiangpin/). ``` R library(MicrobiomeProfiler) data(Rat_data) ko.res <- enrichKO(Rat_data) exp.dat <- matrix(abs(rnorm(910)), 91, 10) %>% magrittr::set_rownames(value=Rat_data) %>% magrittr::set_colnames(value=paste0('S', seq_len(ncol(.)))) exp.dat %>% head library(CBNplot) bngeneplot(ko.res, exp=exp.dat, pathNum=1, orgDb=NULL) ``` <img src="https://github.com/noriakis/software/blob/main/images/CBNplot_readme_MP.png?raw=true" width="800px"> - Another customized plot. <img src="https://github.com/noriakis/software/blob/main/images/CBNplot_readme_3.png?raw=true" width="800px">