如何重新排列x轴并保留统计信息？

Question

我试图绘制数据（可以找到here），但是每当我尝试重新排列x轴时，显着性水平就会消失。

从数据中可以看到，media是按一定顺序组织的，但是当我使用ggpubr软件包中的ggbarplot对其进行绘制时，它是按字母顺序排列的。

p <- ggbarplot(s1, x = "media", y = "Ca", add = "mean_se")+ 
  stat_compare_means(label.y = 860) + 
  stat_compare_means(ref.group = "TAP", label = "p.signif", label.y = 810)

如果我尝试对其重新排序，将会失去统计意义。

ggbarplot(s1.test, 
          aes(x = factor(s1.test$media, 
                         level = c("TAP", "TMP", "Ca", "Mg", "N", "P", "S",
                                   "Fe", "Mn", "Cu", "Zn")),
              y = s1.test$Ca), 
          add = "mean_se") +
  stat_compare_means(label.y = 860) + 
  stat_compare_means(ref.group = "TAP", label = "p.signif", label.y = 810)

有没有一种方法可以使x轴与数据框保持相同的顺序并保持统计信息？