50 practical applications of R language (36) - data visualization from basic to advanced

ggpubr Packet realization mean level comparison test and significance marking diagram

This paper mainly introduces ggpubr package .

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