这个步骤画出来的图: p 再作标注基因名称的图 #标记出5个基因的label geneList1 <- output[rownames(output) %in% geneList0,] geneList1 <- subset(geneList1, select = -change) geneList1$label <- rownames(geneList1) pdf("hotplot.pdf", width = 8, height = 10) library(ggrepel) p + ...