genes=as.vector(clustergenes)
entrezIDs <- mget(genes, org.Mm.egSYMBOL2EG, ifnotfound=NA) %>%as.character(.)
kk <- enrichKEGG(gene = entrezIDs, organism = "mmu", pvalueCutoff = 0.2, qvalueCutoff = 2)
kk<-setReadable(kk , OrgDb = org.Mm.eg.db, keyType="ENTREZID")
#运行上面代码setReadable时报错Error: near "112136084": syntax
需要找到ENTREZID是112136084的基因并进行删除即可正常运行