之前一直在画图，但是没有系统的整理过。
今天梳理了一遍，更加清晰一些。
library(ggplot2)
library(ggpubr)
setwd("path to dir")
#需要一张画布。
p2 <- ggplot(result, aes(x = lable, y= result[,2]))
#画上两个箱子。
p2 <- p2 + geom_boxplot(aes(fill = lable ))
#这两个箱子需要将其变成白色，如果不想变白色，可以不加。
p2 <- p2 + geom_boxplot(size=0.0,fill="white",outlier.fill="white",outlier.color="white")
#在箱子上画上errorbar。
p2 <- p2 + stat_boxplot(geom = "errorbar",width=0.1,aes(color="black"))
#在箱子上叠加上散点图，里面的参数width是jitter的宽度，shape是点儿的类型，size散点的大小。
p2 <- p2 + geom_jitter(aes(fill=lable),width =0.2,shape = 21,size=1)
#修改散点的填充颜色，注意不是所有的shape都能填充颜色。
p2 <- p2 + scale_fill_manual(values = c("blue", "red"))
#修改errorbar的颜色，可以是你喜欢的任何颜色。
p2 <- p2 + scale_color_manual(values=c("black"))
#加上两组数据的显著性结果。
p2 <- p2 + geom_signif(comparisons = list(c("tumor", "normal")),step_increase = 0.1,map_signif_level = F,test = wilcox.test)
#删掉画布底色
p2 <- p2 + theme_bw()
#删掉画布上各种网格线。
p2 <- p2 + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),panel.background = element_blank(),axis.line = element_line(colour = "black"))
#删掉画图的时候产生的各种坐标轴和标注。
p2 <- p2 + theme(legend.position="none",panel.grid.major = element_blank(),panel.grid.minor = element_blank())
#添加上Y轴。
p2 <- p2 + ylab("Expression of log(FPKM)")
#添加上X轴。
p2 <- p2 + xlab(colnames(result)[2])
完事儿！export保存。
