画箱型图,数据文件为differential,两个分组为“CON”和“HIGH”,想比较ADENINE列的数据。
代码:
differential$group<-as.factor(differential$group)
A<-ggplot(differential,aes(x = group, y = ADENINE))+
scale_x_discrete(name="ADENINE")+
geom_boxplot(fill="skyblue1",
colour="skyblue1",
alpha=0.7,
outlier.colour="#1F3552",
outlier.shape=20)
A
结果如下: