ggplot2箱线图的美化之路： 箱线图到直方图加散点图再加误差线的美化之路

前言

由于自己科研工作的需要，经常需要画一些箱线图，比较2个样本的基因表达量啊什么的，这个时候，就会想说如何实现箱线图的美化，以及最近看到一个把正常基因表达量的箱线图画成了直方图加散点图再加误差线的形式，因此想趁空闲来写下我的ggplot2的箱线图的美化之路。

数据准备

首先先生成一个测试数据集

data <- c(rnorm(200))
name <- c(rep("control", 99),rep("treat",101))
res <- data.frame(data,name)

得到的数据集就是这样子的：

箱线图美化

01 一个平平无奇的箱线图

library(ggplot2)
g <- ggplot(res, aes(name, data))+geom_boxplot(aes(fill = name ))

02 给箱线图加上误差线

library(ggsignif)
compared_list = lis