R语言：GO和KEGG分析

# 安装并加载必要的包
if (!requireNamespace("org.Hs.eg.db", quietly = TRUE)) {
    install.packages("org.Hs.eg.db")
}
if (!requireNamespace("clusterProfiler", quietly = TRUE)) {
    install.packages("clusterProfiler")
}
if (!requireNamespace("enrichplot", quietly = TRUE)) {
    install.packages("enrichplot")
}
library(org.Hs.eg.db)
library(clusterProfiler)
library(enrichplot)
 
# 设置基因列表
gene_list <- c("ALDOA", "MIR19B1", "RNF144", "RNF145", "RNF146", "RNF147", "RNF148", "RNF149", "RNF14", "RNF151", "RNF152", "RNF153", "RNF154", "RNF155", "RNF156", "RNF157", "RNF158", "RNF159", "RNF160", "RNF161", "RNF162", "RNF163", "RNF164", "RNF165", "RNF166", "RNF167", "RNF168", "RNF169", "RNF170", "RNF171", "RNF172", "RNF173", "RNF174", "RNF175", "RNF176", "RNF177", "RNF178", "RNF179", "RNF180", "RNF181", "RNF182", "RNF183", "RNF184", "RNF185", "RNF186", "RNF187", "RNF188", "RNF189", "RNF190", "RNF191", "RNF192", "RNF193", "RNF194", "RNF195", "RNF196", "RNF197", "RNF198", "RNF199", "RNF200", "RNF4", "RNF6", "RPS1", "RPS10", "RPS11", "RPS12", "RPS13", "RPS14", "RPS15", "RPS16", "RPS17", "RPS18", "RPS19", "RPS2", "RPS20", "RPS21", "RPS22", "RPS23", "RPS24", "RPS25", "RPS26", "RPS27", "RPS28", "RPS29", "RPS3", "RPS30", "RPS31", "RPS32", "RPS33", "RPS34", "RPS35", "RPS36", "RPS37", "RPS38", "RPS39", "RPS4", "RPS5", "RPS6", "RPS7", "RPS8", "RPS9", "RPSA", "RPSB", "RPSC", "RPSD", "RPSE", "RPSF", "RPSG", "RPSH", "RPSI", "RPSJ", "RPSK", "RPSL", "RPSM", "RPSN", "RPSO", "RPSP", "RPSQ", "RPSR", "RPSS", "RPST", "RPSU", "RPSV", "RPSW", "RPSX", "RPSY", "RPSZ", "RPTAN", "RPTM1", "RPTM2", "RPTM3", "RPTM4", "RPTM5", "RPTM6", "RPTM7", "RPTM8", "RPTM9", "RPTN", "RPTN1", "RPTN2", "RPTN3", "RPTN4", "RPTN5", "R