# 安装enrichR包
install.packages("enrichR")

# 加载enrichR包
library(enrichR)

# 列出可用的数据库
dbs <- listEnrichrDbs()

# 选择您想要分析的数据库，例如DrugMatrix数据库
dbs <- c("ChEA_2022")

# 准备您的基因列表，这里以一个示例基因列表为例
genes_hub<- c("AHR","PNPT1","RASA1")

# 进行富集分析
enriched_hub <- enrichr(genes = genes_hub, databases = dbs)

# 查看富集分析结果
enriched_hub

df_TF <- as.data.frame(enriched_hub)

write.csv(df_TF, "list_TF.csv", row.names = FALSE)