R语言绘制带有散点的盒形图

原始数据为1. HM_39mappingfile.csv，即分组信息 2. adiv_all_sorted.txt，作图所需的值。如图所示：

程序如下：

library("ggplot2")

design = read.csv("HM_39mappingfile.csv", row.names= 1)

group<-design$GLUabnorm

alpha = read.table("adiv_all_sorted.txt",header = T, row.names= 1, sep="\t")

ggplot(alpha, aes(x=group, y=alpha$chao1, color=group))+

geom_boxplot(alpha=1, outlier.size=0, size=1, width=0.5, fill="transparent") +

geom_jitter( position=position_jitter(0.17), size=1.5, alpha=0.7)+

labs(x="groups",y="chao1")+theme(panel.background=element_rect(fill=NA,colour="black"))

END