library(clusterProfiler)
library(wikiprofiler)
data(geneList, package="DOSE")
de <- names(geneList)[1:100]
x <- enrichWP(de, organism='Homo sapiens')
de2 <- bitr(de, "ENTREZID", "SYMBOL", OrgDb='org.Hs.eg.db')
#### if needed
# de2 <- de2[!duplicated(de2[,1]), ]
value <- setNames(geneList[de2[,1]], de2[,2])
ID <- x$ID[1]
p1 <- wpplot(ID)
p1
p2 <- p1 |> wp_bgfill(value, low='darkgreen', high='firebrick', legend_x = .9, legend_y = .95)
p2
p3 <- p2 |> wp_shadowtext()
p3
Need a high-speed mirror for your open-source project?
Contact our mirror admin team at info@clientvps.com.
This archive is provided as a free public service to the community.
Proudly supported by infrastructure from VPSPulse , RxServers , BuyNumber , UnitVPS , OffshoreName and secure payment technology by ArionPay.