r - 按比较顺序重新定位显着性括号 stat_pvalue_manual ggplot2

Question

我有一个在 ggplot2 中创建的直方图，并使用 ggpubr 的 stat_pvalue_manual 函数添加了与调整后的 p 值的成对比较。

pwc <- df_melt %>%
  wilcox_test(value ~ variable, paired = TRUE, p.adjust.method = "holm")

ggplot(df, aes(x = reorder(variable, -value), y = value)) +
  stat_summary(fun = mean, geom = "bar", fill = "#9E0142", width = 0.75) +
  stat_summary(fun.data = mean_cl_boot, geom = "errorbar",
               colour="black", position=position_dodge(1), width=.2) + 
  stat_pvalue_manual(pwc, label = "p.adj.signif", tip.length = 0.02, step.increase = 0.1, hide.ns = TRUE, y.position = c(5, 5.25, 5.5, 5.75, 6, 6.25, 6.5, 6.75), label.size = 3)

这将产生以下图表

我想重新排列括号，使它们看起来更好一些，例如首先比较 init_com_rank 和 battery_rank，然后是 init_com_rank 和 com_interrupted rank 等等。我该怎么做？我尝试手动将 y.position 中的位置重新排序，c(5.5, 5.75, 5, 5.25, 6.5, 6.75, 6, 6.25)但这不起作用（见下文）

我在想一种解决方案是以某种方式直接重新排序 pwc 表中的输出，但我也不确定如何执行此操作。