（生物信息学）R语言绘图初-中-高级——3-10分文章必备——点阵图（初级）

  
    
 setwd("C:\ Users\ Lijingxian\ Desktop\ 博客\ 作图（初级）")
    
 dir()
    
 data <- read.csv("点阵图.csv",header = T,sep = ",")
    
 head(data)
    
  
    
  
    
 library(ggplot2)
    
 library(ggpubr)
    
 head(data)
    
 a <- ggplot(data,aes(x=Type,y = AURKA))+
    
   geom_dotplot(aes(fill = factor(Type),color = factor(Type)),
    
            position = position_dodge(1.2),
    
            binaxis = "y", stackdir = "center",
    
            binpositions="all",binwidth = 0.05)+theme_classic()
    
  
    
 a
    
 b <- a+stat_summary( aes(x = Type,y = AURKA,fill = Type),
    
                  fun.y = "mean",position = position_dodge(1.2),
    
                  geom = "crossbar",fun.args = list(mult =1),
    
                  width = 0.4,color = "black",size = 0.1)
    
 b
    
 c <- b+stat_summary(aes(x = Type,y = AURKA,fill = Type),
    
                 position = position_dodge(1.2),fun.data = "mean_sd",
    
                 geom="errorbar", width = 0.3,color = "black",size = 0.2)
    
 c
    
 e <- c+theme(axis.text.x.bottom = element_text(angle = 45,vjust = 1,hjust = 1,size = 9,color = "black"))+
    
   theme(axis.text.y.left = element_text(vjust = 0.5,hjust = 0.5,size = 9,colour = "black"))+
    
   theme(axis.title.x.bottom = element_text(vjust = 0.5,hjust = 0.5,size = 11,colour = "black"))+
    
   theme(axis.title.y.left = element_text(vjust = 0.5,hjust = 0.5,size = 11,colour = "black"))+
    
   theme(legend.text = element_text(vjust = 0.5,hjust = 0.5,size = 9,colour = "black"))+
    
   theme(legend.title = element_text(vjust = 0.5,hjust = 0.5,size = 10,colour = "black"))
    
 e
    
 f <- e+labs(y = "AURKA mRNA expression",x="")
    
 f
    
 dir()
    
  
    
 g <- f+stat_compare_means(aes(group=Type),symnum.args=list(cutpoints = c(0, 0.001, 0.01, 0.05, 1), symbols = c("***", "**", "*", "ns")),label = "p.signif")
    
 g
    
    
    
    
    AI助手