多个数据的boxplot

ggplot(gp,aes(Tissue,Expression))+geom_boxplot(aes(fill=Type))+stat_compare_means(aes(group = Type), label = "p.signif",hide.ns = T)+rotate_x_text(90)

image.png

ggplot(gp,aes(Tissue,Expression))+geom_boxplot(aes(fill=Type))
+stat_compare_means(aes(group = Type), label = "p.signif",hide.ns = T)
+theme_bw()+rotate_x_text(90)

image.png

ggplot(gp,aes(Tissue,Expression))+geom_boxplot(aes(fill=Type))+labs(title = "Boxplot for gene expression profile across cancer experiments [GPL570 platform (HG-U133_Plus_2)]")+stat_compare_means(aes(group = Type), label = "p.signif",hide.ns = T)+theme_bw()+rotate_x_text(90)

image.png

简单的ggpubr出图,带lancet配色，定义点的大小

ggboxplot(combine,"cancer","log2TPM",col= "type",palette = "lancet",add = "jitter",shape="type",add.params =list(size = 0.4, jitter = 0.4),ggtheme = theme_bw(),xlab = F,ylab = "log2(TPM+1)" )+stat_compare_means(aes(group = type),label = "p.signif",  hide.ns = F)+rotate_x_text(45)

image.png

---

柱状图
ggbarplot(combine,"cancer","log2TPM",fill= "type",palette = "lancet",add = "mean_se",xlab = F,ylab = "log2(TPM+1)"",position = position_dodge(0.8))+stat_compare_means(aes(group = type),label = "p.signif", hide.ns = F,method = 'anova')