ggplot2做分组箱线图，添加bar和均值并修饰图形

并不觉得ggplot2作图多好看，尤其是箱线图和柱状图需要大量的修饰，
现在介绍ggplot2做分组箱线图，添加箱子的bar和均值的几个函数

stat_boxplot() 函数
stat_boxplot() 函数用来给箱子添加median ±1.5 IQR 的最大值和最小值的bar, 注意分组用的参数的设置position,根据图像大小设置bar间距width参数

stat_boxplot(mapping=aes(x=横坐标列,y=纵坐标列,fill=分组列),  ##fill分组列
               geom ="errorbar",                             ##添加箱子的bar为最大、小值
               width=0.15,position=position_dodge(0.8))+     ##bar宽度和组间距

stat_summary()函数
stat_summary()函数用于给箱线图添加均值，一般用的均值图形为立四边形，因为分组比较，需要设置分组变量和组件据position参数

stat_summary(mapping=aes(group=分组列),                      ##设置分组列
               fun="mean",                                   ##箱线图添加均值使用的公式mean
               geom="point",shape=23,size=3,fill="white",    ##均值图形的设置
               position=position_dodge(0.8))+                ##分组比较，需设置两组间距

theme()函数

• 设置的区域
  panel：绘图区相关设置
  axis：坐标轴相关的设置
  legend：图例相关的设置
• 设置的内容
  element_text()：设置基于文本的组件，如title,subtitle 和caption等。
  element_line()：设置基于线条，如轴线，主网格线和次网格线等。
  element_rect()：修改基于绘图区域，如绘图区域和面板区域的背景。
  element_blank()：清空任意主题对象，默认返回默认主题。

ggplot2图形外观的其他常用函数
scale_fill_manual(): 设置比较的两组图形颜色
scale_y_continuous(): 设置y轴标签范围、标签名称
scale_x_discrete(): 设置x轴标签的顺序、名称
labels(x="X轴",y="Y轴",fill="图例"): 更改x、y、图例的文本名称

汇总以上函数的代码

ggplot(data,mapping=aes(x=横坐标列,y=纵坐标列,fill=分组列))+ ##设置图形的纵坐标横坐标和分组
  stat_boxplot(mapping=aes(x=横坐标列,y=纵坐标列,fill=分组列),
               geom ="errorbar",                             ##添加箱子的bar为最大、小值
               width=0.15,position=position_dodge(0.8))+     ##bar宽度和组间距
  geom_boxplot(aes(fill=分组列),                             ##分组比较的变量
               position=position_dodge(0.8),                 ##因为分组比较，需设组间距
               width=0.6,                                    ##箱子的宽度
               outlier.color = "white")+                     ##离群值的颜色
  stat_summary(mapping=aes(group=分组列),                    ##分组计算的变量
               fun="mean",                                   ##箱线图添加均值
               geom="point",shape=23,size=3,fill="white",    ##均值图形的设置
               position=position_dodge(0.8))+                ##因为分组比较，需设置两组间距
  scale_fill_manual(values=c("red","white","blue"))+         ##设置分组的颜色,对应fill组数
  scale_y_continuous(limits=c(0,4),                          ##修改y轴的范围
                     breaks=c(1,2,3,4)),                     ##修改y轴刻度位置
                     labels=c("A","B","C","D","E")+          ##修改y轴标签的名称
  scale_x_discrete(limits=c("D","C","B","A")，               ##修改x轴标签的顺序
                   labels=c("Z","H","M","R")+                ##修改x轴标签的名称
  labs(x="X轴新名称",y="Y轴新名称",fill="新图例名称")+        ##修改坐标轴和图例的文本
  
  theme(panel.background=element_rect(fill='transparent'),   ##去掉底层阴影
        panel.grid=element_blank(),                          ##去掉网格线
        panel.border=element_blank(),                        ##去掉图的边界线
        panel.border=element_rect(fill='transparent',        ##设置图的边界线
                                  color='transparent')，
        axis.line=element_line(colour="black",size=0.9),     ##设置坐标轴的线条
        axis.title=element_text(face="bold",size = 13),      ##设置坐标轴文本字体
        axis.title.x=element_blank(),                        ##删除x轴文本               
        axis.text=element_text(face = "bold",size = 10),     ##设置坐标轴标签字体
        axis.ticks=element_line(color='black'),              ##设置坐标轴刻度线
        legend.position=c(0.15, 0.9),                        ##设置图例的位置
        legend.direction = "horizontal",                      ##设置图列标签的排列方式
        legend.title=element_text(face = "bold",size=12),    ##设置图例标题字体
        legend.title=element_blank(),                        ##去掉图例标题         
        legend.text=element_text(face = "bold",size=12),     ##设置图例文本的字体
        legend.background=element_rect(linetype="solid",     ##设置图列的背景和线条颜色
                                       colour ="black"))  
  

产生的图形样式如下：

Rplot.png