小提琴图绘制

用到的函数

ggplot2包 geom_violin()

构造数据框

set.seed(141079)

data <- data.frame(BAI2013 = rnorm(300),

class = rep(letters[1:3], 100),

treatment = rep(c("elevated","ambient"),150))

data

绘制箱线图a

ggplot(data=data,aes(x=class,y=BAI2013,fill=factor(treatment)))+

geom_boxplot(outlier.size =1,size=0.5,position=position_dodge2(0.8))+ #position控制分类箱子的间隔

guides(fill=guide_legend(title="treatment"))+

theme_classic()+

theme(axis.text = element_text(size=11,face="plain",color="black"), #控制坐标轴字体大小颜色

axis.title = element_text(size=13,face="bold",color="black"), #控制坐标轴字标题的大小颜色

legend.position = "right",

axis.ticks=element_line(colour="black",size=0.2)

)

a

绘制带点的箱线图b

geom_point(position=position_jitterdodge(dodge.width = 0.8), alpha=1, shape=21, size = 1.5 )+

在上面代码中添加点即可得到带抖动点的箱线图

#position_jitterdodge主要用于对齐通过geom_point()与躲开的箱线图(例如，带有填充美学提供的geom_boxplot())生成的点,dodge.width = 0.8要与上面boxplot中值一样

b