ggboxplot重要括号位置太高

Question

我正在使用ggpubr libray。由于某些原因，支架的位置过高。有什么办法可以将它们降低一些。我不想将每个位置一一对应。

library(ggpubr)
set.seed(1)
df <- data.frame(
    Value = c(rnorm(50),rnorm(50)+10,rnorm(50)+20),
    Group = sample(1:4, 150, replace = T),
    Class = rep(LETTERS[1:3],each=50),
    M = sample(LETTERS[25:26], 150, replace = T))

df %>% ggboxplot(x = "Group", y = "Value",
                 facet.by = c("Class", "M"), scales="free_y") + 
  stat_compare_means(comparisons = list(c("1", "2"), c("2","3"),c("1","4")))

Answer 1

这是一种快速而又肮脏的方法...只需以较高的高度将图导出为pdf，您也可以通过pdf(height = ...)

然后您得到：