构建好了orgDB包，我们如何做GO富集，并画图。

library(readr)
library(tidyverse)
library(org.Ji.eg.db)
library(org.Gg.eg.db)
library(clusterProfiler)
TTGvsCON <- read_delim("E:/文件下载/橡胶 割胶 乙烯利/TTG-vs-CON-diff-q-val-0.05-FC-2.gene (2).xls", 
                                                      delim = "\t", escape_double = FALSE, 
                                                      trim_ws = TRUE) %>%
  dplyr::select(id = gene_id,log2FoldChange = log2FoldChange,
                qvalue = "q-value") %>%
  filter(abs(log2FoldChange)>2 & qvalue <0.01) %>%
  pull(id)

TTGvsAVG1 <- read_delim("E:/文件下载/橡胶 割胶 乙烯利/TTG-vs-AVG-diff-q-val-0.05-FC-2.gene.xls", 
                                                   delim = "\t", escape_double = FALSE, 
                                                   trim_ws = TRUE) %>%
  dplyr::select(id =