用到的函数
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
