如何在R中沿X轴将P值对齐到对应箱线图之间

当前绘制的箱线图中，P值标签未沿X轴精准对齐到对应箱线图的中间位置，需要调整对齐方式。

我的问题是如何沿X轴将P值精准对齐到对应的箱线图之间。以下是我的代码，虽略显杂乱但可正常运行：

p <- ggplot(mydata,aes(x=factor(instance), y=time))+
  geom_boxplot(aes(fill=Color))+
  theme_prism()

p + add_pvalue(df_p_val, 
           label = "p = {p.format}",
           colour = "Color",
           fontface = "bold",
           step.group.by = "Color",
           step.increase = 0.1,
           tip.length = 0,
           bracket.colour = "black",
           show.legend = FALSE,
           y.position = c(350, 400, 450,500))

要让P值精准对齐到对应箱线图之间，关键是给add_pvalue()函数指定x.position参数，手动定义每个P值应该放置的X轴中间位置。

操作步骤： #

1. 确定X轴类别对应的数值坐标：因为x=factor(instance)会把每个instance类别转换为1、2、3...这样的连续数值（比如第1个类别对应1，第2个对应2，以此类推）。两个相邻类别之间的中间位置就是n + 0.5（比如类别1和2之间是1.5，类别2和3之间是2.5）。
2. 在add_pvalue()中添加x.position参数，传入和y.position长度一致的位置向量，每个值对应一个P值要放置的X轴中间点。

修改后的代码示例：

p <- ggplot(mydata,aes(x=factor(instance), y=time))+
  geom_boxplot(aes(fill=Color))+
  theme_prism()

# 根据你的实际比较组，替换x.position的向量值
p + add_pvalue(df_p_val, 
           label = "p = {p.format}",
           colour = "Color",
           fontface = "bold",
           step.group.by = "Color",
           step.increase = 0.1,
           tip.length = 0,
           bracket.colour = "black",
           show.legend = FALSE,
           y.position = c(350, 400, 450,500),
           x.position = c(1.5, 2.5, 3.5, 2)) # 示例位置，根据你的比较组调整

补充提示： #

• 如果不确定X轴的实际数值坐标，可以运行ggplot_build(p)查看返回结果中的$layout$panel_params[[1]]$x$get_labels()和对应数值，确保位置设置准确。
• 如果你的df_p_val数据框包含group1和group2列（指定比较的两组），也可以通过映射分组的方式让函数自动计算位置，但手动指定x.position是最精准可控的方法。

内容的提问来源于stack exchange，提问作者Balina