跟着Nature Communication学作图：R语言ggplot2话点线图展示基因表达量的范围

dat01<-read.delim("data/20220602/NC_Figure3b.txt",
                  header=TRUE,
                  check.names = FALSE,
                  sep="\t",
                  stringsAsFactors = TRUE)
head(dat01)
table(dat01$Group)
dat01$gene<-factor(dat01$gene,
                   levels = dat01$gene)

library(ggplot2)
library(scales)

ggplot(data=dat01,aes(x=gene,y=mean_value,color=Group))+
  geom_pointrange(aes(ymin=min_value,ymax=max_value),
                  show.legend = FALSE)+
  scale_y_continuous(trans = log10_trans()
                     ,breaks = trans_breaks("log10", function(x) 10^x),
                     labels = trans_format("log10", math_format(10^.x)))+
  scale_color_manual(values=c("#BB3D00","#6F00D2","#D9006C",
                              "#005AB5","#00DB00","#3D7878","#D9B300"))+
  theme_bw() +
  theme(panel.background=element_rect(fill="white",colour="black",size=0.25),
        axis.line=element_line(colour="black",size=0.25),
        axis.title=element_text(size=13,face="plain",color="black"),
        axis.text = element_text(size=10,face="plain",color="black"),
        axis.text.x = element_text(angle = 60, hjust = 1, vjust =1),
        #legend.position="none"
  )+
  labs(x=NULL,y="TMP of genes")