为 ggpubr 统计测试比较添加括号答案

【问题标题】：Adding bracket for ggpubr statistical test comparisons为 ggpubr 统计测试比较添加括号
【发布时间】：2021-12-25 00:25:56
【问题描述】：

我从教程中获得了以下代码，用于使用 ggpubr 中的函数，但输出图在统计测试结果下方没有括号（或线条）。

library(ggpubr)
data("ToothGrowth")
p <- ggboxplot(ToothGrowth, x = "dose", y = "len",
          color = "supp", palette = "jco",
          add = "jitter")
p + stat_compare_means(aes(group = supp))

如果我必须使用aes(group = x)) 参数作为stat_compare_means() 函数的比较组，有没有办法在值下方获得一条线，如下图所示？谢谢。

【问题讨论】：

嘿杰夫 - 不是一个完整的答案，但也许你正在寻找的只是来自 ggpubr 的 geom_bracket - rpkgs.datanovia.com/ggpubr/reference/geom_bracket.html
我尝试过使用geom_bracket()，但我无法正确获取参数（由于箱线图已分组，我不知道为 xmin 和 xmax 输入什么以便识别在 ggplot 对象中）

标签： r ggplot2 ggpubr

【解决方案1】：

这是你的意思吗？

library(ggpubr)
data("ToothGrowth")
p <- ggboxplot(ToothGrowth, x = "dose", y = "len",
               color = "dose", palette = "jco",
               add = "jitter")
my_comparisons <- list( c("0.5", "1"), c("1", "2"), c("0.5", "2") )
p + stat_compare_means(comparisons = my_comparisons)

【讨论】：

并非如此，因为在您的示例中，x 轴只有 1 组数据，因此可以将其放入列表中以进行比较 stat_compare_means()，但是在现在的问题中，每个勾上轴有两组（所以剂量为 0.5 的 OJ 和 VC），我无法获得用于该比较的线。我尝试使用 comparisons 参数，但它无法识别变量内的组