?原始數據

?

setwd("C:\\Users\\HUAWEI\\Desktop\\proteomic_WGCNA\\bacteria\\Eggnog\\KEGGhun")
library(ggplot2)
library(cols4all)
dt <- read.csv("bacteria_KEGG.csv")dt$KEGG_Term <- factor(dt$KEGG_Term, levels = rev(dt$KEGG_Term))#基礎富集條形圖繪制：#基礎富集條形圖繪制：
p <- ggplot() +geom_bar(data = dt,aes(x = -log10(Pvalue), y = KEGG_Term, fill = Cluster),width = 0.5, #柱子寬度調整stat = 'identity') +theme_classic()
p
#調整x軸原點與y軸相切：
p1<- p + scale_x_continuous(expand = c(0,0))
p1
p2<- p1 +theme(axis.text.y = element_blank()) + #去掉y軸標簽geom_text(data = dt,aes(x = 0.1, #用數值向量控制文本標簽起始位置y= KEGG_Term, label= KEGG_Term),size= 4.5,hjust= 0) #左對齊
p2
p3<- p2 +geom_text(data = dt,aes(x = 0.1, y = KEGG_Term, label = geneID, color = Cluster),size= 4,fontface= 'italic', #geneID斜體hjust= 0,vjust= 2.3) #垂直偏移，調整文本向下
p3