ggpubr包实现均值水平比较检验与显著性标记图示

主要介绍ggpubr包。

library(ggpubr)

head(ToothGrowth)
table(ToothGrowth$supp)
table(ToothGrowth$dose)
table(ToothGrowth$supp, ToothGrowth$dose)

compare_means(len ~ supp, data = ToothGrowth)
compare_means(len ~ supp, data = ToothGrowth, group.by = "dose")
compare_means(len ~ supp, data = ToothGrowth, ref.group = "VC")
compare_means(len ~ supp, data = ToothGrowth, ref.group = ".all.")
compare_means(len ~ dose, data = ToothGrowth)
compare_means(len ~ dose, data = ToothGrowth, ref.group = ".all.")

ggboxplot(ToothGrowth,
          x = "supp", y = "len",
          fill = "supp",
          add = "jitter") +
  stat_compare_means()
ggboxplot(ToothGrowth,
          x = "supp", y = "len",
          fill = "supp",
          add = "jitter") +
  stat_compare