原始数据

 

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