打算使用之前的5组数据画个箱线图，每组的样本个数不一样，因此在画图的时候出现了组间顺序混乱的结果。刚开始先载入包和读取数据。
library(datasets)
library(ggplot2)
data=read.table("C:/Users/start/Desktop/data1.txt",header = T)
然后画个最简单的箱线图
p0 <- ggplot(data,aes(x=group,y=methylation)) +
geom_boxplot( )
简单描述一下，就是五个组中按照时间顺序本来应该排在第一位的排在了最后一位
随后去网上看了一下，发现可以用以下方式解决
data$group <- factor(data$group,levels = c("zygote", "2-cell", "4-cell", "8-cell", "morula"))
group就是箱线图中的横坐标，这样就可以按照自己设想的方式进行排序了
