#color越红,p值越小 #接上面GO的分析,此处不需要count排序只要pvalue的柱形图,等同于TBtools里的图 df3 <- ego1 %>%select(c("Term","Ontology","pvalue"))df3<-na.omit(df3)ggplot(df3[c(1:20),],aes(x=Term,y=-log10(pvalue)))+geom_bar(aes(fill=Ontology))+coord_flip()+labs(x="...