如何修改enrichplot包barplot绘制的GO富集图X轴标题？

在使用clusterProfiler进行GO富集分析后，使用enrichplot的barplot()函数可视化时，默认X轴标题为"Count"，需要修改为"Number of genes"。

因为enrichplot::barplot()返回的是ggplot2对象，所以可以直接使用ggplot2的labs()函数来修改X轴标题，具体操作如下：

修改后的完整代码 #

library(clusterProfiler)
library(enrichplot)
library(org.Hs.eg.db)

data(geneList, package="DOSE")
gene <- names(geneList)[abs(geneList) > 2]

ego <- enrichGO(gene          = gene,
                universe      = names(geneList),
                OrgDb         = org.Hs.eg.db,
                ont           = "CC",
                pAdjustMethod = "BH",
                pvalueCutoff  = 0.01,
                qvalueCutoff  = 0.05,
                readable      = TRUE)

# 生成柱状图并修改X轴标题
barplot(ego, showCategory = 5, cluster = "hierarchical", title = "GO Cellular Component",
        x = "Count") +
  labs(x = "Number of genes")

原理说明 #

enrichplot的可视化函数都是基于ggplot2构建的，返回的是标准ggplot对象。因此所有ggplot2的自定义语法都能适用，除了修改X轴标题，还可以通过theme()函数调整字体样式、通过scale_x_continuous()调整刻度等，实现更个性化的图表定制。

内容的提问来源于stack exchange，提问作者emr2