R ggplot2: 创建美观且易于解读的箱线图和显著性检验

ggboxplot(data, x = x_var, y = y_var, color = group_var, add = 'mean_sd', ylim = c(0, max(data[[y_var]])), palette = 'jco') + stat_compare_means(comparisons = list(c('A', 'B'), c('A', 'C'), c('B', 'C')), method = 't.test', paired = FALSE, p.adjust.method = 'bonferroni', label = 'p.adj', hide.ns = TRUE) + ggtitle('Group Comparison') + xlab(x_var) + ylab(y_var) + theme_pubclean()